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I.    INTRODUCTION 

A.   DEFINITION  OF  THE  PROBLEM 

It  is  often  observed  that  most  of  strategic  problems  are 
analyzed,  discussed,  and  solved  by  many  decision  makers.  The 
existence  of  multiple  users  have  created  a  number  of 
problems.  First,  it  is  difficult  to  physically  reunite  all 
decision  makers  in  a  geographic  location.  It  is  even  more 
problematic  in  finding  sin  appropriate  time  for  all  the  group 
members.  Second,  the  success  of  a  group  decision  making 
process  relies  on  the  skillfulness  of  the  group  leader. 
Unfortunately,  the  quality  of  the  group  leader  varies  from 
one  negotiator  to  the  other,  and  from  one  situation  to  the 
other.  In  a  military  decision-making  context,  this  problem 
becomes  even  more  complicated  if  one  considers  the 
increasing  complexity  of  the  technological  aspect  of  warfare 
and  uncertainty  regarding  political  issues. 

This  research  proposes  a  computet — based  group  decision 
support  system  that  attempts  to  resolve,  or  at  least  reduce, 
the  problems  enumerated  above.  It  designs  and  implements  a 
microcomputer-based  DSS  that  allows  group  members  to 
remotely  and  sequentially  participate  to  collective  decision 
problems.  In  particular,  the  proposed  DSS  is  an  expansion  of 
a  DSS  based  on  rnul t  i object  i ve  decision  methods,  is 
implemented  in  a  local  Area,  network  using  a  bus  architecture 
and  the  Carrier  Sense  Multiple  Access  with  Collision 
Detection  (CMSA/CD)  protocol.  The  CMSA/CD  protocol  is 
known  by  its  relatively  good  performance,  simplicity  of 
implementation,  and  inherent  system  reliability.  Such  a 
protocol  allows  control  of  collective  information  exchange 
and  data  routing  among  group  decision  members. 

The  use   of  such   a  group  DSS  distributed  in  time  and  in 
space,  is  expected  to   eliminate   the   physical   presence  of 
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group  members  and  the  need  of  scheduling  meetings.  More 
important,  the  proposed  distributed  DSS  provides  a  objective 
and  flexible  framework  to  integrate  organizational  norms  and 
constraint  into  the  decision  situation. 

B.  SCOPE  OF  THE  RESEARCH 

This  research  does  not  attempt  to  discuss  the  already 
large  and  interdisciplinary  literature  on  group  decision 
making.  It  attempts  to  expand  some  of  the  work  in  group 
decision  support  systems  outlined  by  CRef.  1  to  31  Two  major 
expansions  include  the  possibility  for  the  user  (i)  to 
d  irect 1 y  assess  his  preferences  in  cardinal  terms,  and  (ii) 
to  allow  division  of  evaluation  tasks  according  to 
individual  expertise.  In  particular,  this  research  primarily 
focuses  on  the  software  design  and  implementation  of  the 
networked  micro-computer— based  group  DSS  operating  under  a 
cooperative  environment.  However,  the  modular  approach 
adopted  for  the  proposed  DSS  would  make  it  possible  to 
expand  the  system  to  more  complex  form  of  group  decision 
situations  found,  for  example,  in  military  strategic 
planning. 

C.  ORGANIZATION  OF  THE  THESIS 

Section  II  outlines  basic  definitions,  concepts  and 
architectures  related  to  group  decision  making  under 
computet — based  settings.  It  emphasizes  the  communications 
aspects  among  group  members  via  computerized  media.  Chapters 
III,  IV,  V  and  VI  successively  discusses  the  characteristics 
of  the  components  of  the  group  DSS.  Two  multiple  criteria 
decision  methods  are  presented  in  III. A.  Four  techniques  of 
aggregation  of  preferences  are  defined  in  III.B.  The  multi- 
window  interface  has  been  adopted  for  the  GDSS  interface 
(section  IV. A).  Data  definitions  and  dictionaries  are 
described   in    section   V.   Section   VI   addresses   special 
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applications  of  the  communications  modules.  Some 
observations  on  the  development  process  of  the  GDSS  Ar^e 
reviewed  in  section  VII.  Two  examples  of  remote  mult i person 
decision— making  in  military  strategic  planning  are  analysed 
in  section  VIII.  They  illustrate  the  use  of  the  GDSS  to  the 
selection  problem  of  navy  ships. 
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II.   ft  FRAMEWORK  FOR   IMPLEMENTING  REMOTE  MULTIPERSQN  GROUP 

DECISION  SUPPORT  SYSTEMS 


ft.   DEFINITIONS  ftND  BftSIC  CONCEPTS 
1.   Definitions  of  group  D5S 

ft  collective  decision-making  process  can  be  viewed 
as  a  decision  situation  in  which  (i)  there  are  two  or  more 
persons,  each  of  them  characterized  by  his  or  her  own 
perceptions,  attitudes,  motivations,  and  personalities,  (ii) 
who  recognize  the  existence  of  a  common  problem,  and  (iii) 
attempt  to  reach  a  collective  decision  CRef.  13. 
Furthermore,  the  group  can  interact  simultaneously  (i.e., 
pooled— interdependent  mode)  or  make  individual  decisions 
separately  and  then  confront  and  discuss  the  results 
(i.e.  , sequent  i a 1  — interdependent )  . 

One  can  observe  three  broad  types  of  group  decision 
making:  a  single  decision  maker  acting  in  a  collective 
decision  environment,  non-cooperative  decision  making,  and 
cooperative  decision  making. 

In  the  group  decision-making  situation  with  one 
person,  a  particular  decision  maker  ultimately  makes  the 
decision  and  assumes  responsibility  for  his  line  of  action. 
However,  the  decision  can  be  regarded  as  a  collective  one 
because  of  the  existence  of  a  dense  network  of  influences 
that  surrounds  this  single  decision  maker.  In  fact,  other 
participants  in  the  decision  maker's  organization  can  either 
support  or  act  against  the  decision.  Thus,  the  behavior  and 
attitudes  of  other  people  who  ar^e  indirectly  involved  in  the 
decision— making  process  should  be  analyzed. 

In  the  non-cooperative  decision  situation,  the 
decision  makers  play  the  role  of   antagonists  or  disputants. 
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Conflict  and  competition  ar-e  common  forms  of  non-cooperative 
decision-making.  While  the  former  represents  a  situation  in 
which  disputants  seek  to  hurt  their  opponents  to  pursue 
their  own  interests,  the  latter  is  characterised  by  the 
facts  that  each  competitor  is  art  action  candidate,  and  is 
trying  to  outperform  others. 

In  a  cooperative  environment,  the  decision  makers 
attempt  to  reach  a  common  decision  in  a  friendly  and 
trusting  manner,  and  share  the  responsibility.  Consensus, 
negotiation,  voting  schemes,  and  even  the  recourse  to  a 
third  party  to  dissolve  differences  are  examples  of  this 
type  of   group  decision  making. 

Also,  the   literature   in   decision-making  describes 
two   types   of   decision   situations  involving  more  than  one 
user:  pooled  interdependent   and   sequential  interdependent. 
In   a   pooled   decision-making   situation,   decision   makers 
reunite  together  to  form  a  more   or  less   homogeneous  group, 
and  attempt   to  resolve  a  collective  problem  simultaneously. 
Elsewhere,  in  a  sequential  interdependent  situation,  members 
of  the   group  cart    attack  the  collective  problem  at  different 
periods  in  time,  looking  at  different  decision  angles. 

Another  classification  of  group  problem  solving 
approach  found  in  the  literature  is  the  distinction  between 
content -or iented  and  process-oriented  approaches.  The  first 
approach  focuses  on  the  content  of  the  problem,  attempting 
to  find  art  optimal  or  satisfactory  solution  given  certain 
social  or  group  constraints,  or  objectives.  By  contrast,  the 
second  approach  is  based  on  the  observation  that  the  group 
goes  through  certain  phases  in  the  group  decision— making 
process,  and  on  the  belief  that  there  could  be  an  arranged 
way  to  effectively  deal  with  these  phases. 

When  a  collective  decision  fails,  it  becomes 
necessary  for  the  participants  in  the  group  problem  solving 
to   start   bargaining   or   negotiating   until  a  consensus  is 
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found.  While  bargaining  involves  discussion  within  a 
specific  criterion  or  issues,  negotiation  includes  many 
criteria  or  issues  in  the  discussion  and  search  for 
consensus. 

2.   ftssumpt  ions 

Without  loss  of  generality,  the  cooperative  multiple 
criteria  group  decision  support  system  implemented  in  this 
thesis,  is  a  DSS  that  (i)  contains  MCDM  and  supporting 
models  in  the  individual  Model  component,  and  (ii)  is  able 
to  support  multiple  decision  makers  via  a  Group  DSS  to  reach 
a  consensus   in  a  cooperative  environment. 

Under  certain  decision  circumstances,  MCDM  cart  play 
a  crucial  role  in  supporting  group  decision-making: 

(1)  Due  to   interpersonal  differences,  the  existence  of 
multiple  and  conflicting  objectives  is  substantially 
more   dominant   in   group   decision-making   than   in 
single  person  decision— making ; 

(2)  Subjective  and  qualitative  assessments  seem  to  play 
a  more  crucial  role  in  group  than  in  single  user 
decision-making.  It  has  been  observed  that  it  is 
relatively  easy  for  decision  makers  to  agree  upon 
problems  that  have  objective,  quantifiable  and 
well-defined  attributes.  Conversely,  decision  makers 
tend  to  disagree  upon  attributes  that  require 
subjective  and  qualitative  assessments.  Further- 
more, in  group  decision— making,  in  addition  to  the 
evaluation  of  the  situational  problem,  decision 
makers  invariably  attempt  to  evaluate  and  the 
decision  analyses  of  themselves  and  others. 

(3)  The  simplicity  of  MCDM  outputs  makes  it  easier  to 
communicate,  coordinate  and  aggregate  individual 
analyses  in  the  group  decision-making  process. 

(4)  The  process  often  plays  a  more  decisive  role  than 
the  content  in  group  problem  solving.  MCDM  provide  a 
simple  but  structured  framework  for  controlling  the 
decision— making  process,  i.e.,  assessment  of 
alternatives,  assessment  of  evaluation  criteria, 
selection  of  An  appropriate  algorithm  for  assessment 
of  preferences,  and  search  for  a  solution  or 
compromise; 

(5)  The  division  of  decision  processes  into  four  stages 
also  allows  alternate  utilization  of  both  objective 
optimisation  and  subjective  evaluation. 
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(6)  The  iterative  use  of  the  MCDM  processes  would  permit 
integration  of  predecision  and  post decision  phases 
in  the   habitual  decision  phase. 


Specifically,  the  Co-oP  DSS  discussed  in  this 
research  attempts  to  support  the  following  decision 
sit uat  ion: 


(1)  There  are  multiple  users  or  decision  makers.  They 
may  share  an  equal  weight  or  have  an  unequal  or 
'hierarchically'  distributed  weight  corresponding  to 
a  particular  decision-making  context. 

(£)  The  group  shares  a  common  set  of  feasible  decision 
alternatives.  From  this  set  of  alternatives,  the 
decision  makers  can  either  select  one  or  more 
alternatives,  or  rank  them  according  to  a  given  set 
of  criteria. 

(3)  Each  decision  maker  may  have  personal  objectives 
that  reflect  a  priori  values  and  as  pi rat  ion  levels. 
Objectives  are  concretely  expressed  by  criteria  or 
attributes  that  are  discrete,  and  at  least  ordinal ly 
measurable.  Due  to  personal  differences,  individual 
decision  outcomes — as  opposed  to  acollective 
decision  outcome  that  the  group  is  trying  to  reach 
ar\  agreement  on — often  differ  from  one  decision 
maker  to  the  other. 

(4)  The  decision   makers  can    be  geographically  dispersed 
and  not  required  to  log  into  the  system   at  the  same 
time.   Via   a   distributed   computer  network  system, 
they  can   communicate  to   others  either  sequentially 
or  in  an  on— line  mode. 

(5)  The  decision  makers  interact  in  a  cooperative  manner 
and  in  a  trusting  environment.  The  system  does  not 
handle  attempts  to  cheat  or  to  seek  coalition  within 
sub-groups. 

(6)  The  decision  makers  can  either  work  closely  together 
by  forming  a  homogeneous  group  that  uses  a  single 
decision  support  system,  or  work  independently  and 
then  proceed  to  a  multilateral  assessment  of  the 
problem. 

(7)  The  decision  makers  can  segment  a  group  decision 
problem  into  (hierarchically)  sequential  single  user 
decision  problems  according  to  individual  expertise 
and  responsibility. 
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3.  Communications  Issues  in  Distributed  Decision  Making 
In  the  context  of  a  distributed  group  decision 
making,  the  demands  for  information  exchange  are  marked  by 
certain  characteristics  that  should  be  considered  in  the 
design  of  communications  capabilities.  These  characteristics 
could  be  best  expressed  by  the  requirements  of  having 
information  exchanges  that  are  <i)  format-transparent,  (ii) 
either  constrained  or  unconstrained,  and  (iii)  evolving 
throughout  the  decision  phases. 

a.  Need  for  Format -Transparent  Information  Exchange 
The  demand  for  and/or   generation  of  information 

among  decision  makers  can  take  a  variety  of  formats,  ranging 
from  unstructured  and  written  notes  to  structured  and 
numerical  tables  CRef.  4  3.  The  most  complex  form  of  traffic 
is  the  situation  in  which  decision  .makers  simultaneously 
require  information  exchanges  on  different  subjects  from 
different  members  using  complicated  combinations  of 
input /out  put  formats.  It  would  then  be  necessary  to 
identify,  classify  and  convert  information  characterized  by 
various  individual  formats  into  standard  message  formats, 
including  the  creation  and  maintenance  of  information 
related  to  group  problem  solving  techniques,  such  as  aggre- 
gation of  preferences  which  requires  some  standardized 
inputs  from  individual  results. 

b.  Limited  versus  Free  Information  Exchange 

In  some  group  decision  situations,  it  is 
conceivable  that  all  shared  information  is  'public'  in  that 
every  member  of  the  decision  group  has  the  right  to  access 
any  information  that  is  sent  by  one  member  of  the  group  to 
another,  whereas  in  some  other  decision  situations, 
individual-to— individual  or  private  message  transfers  airs 
authorized  CRef.  5  3.  Thus,  the  creation,  (statistical) 
maintenance  and  storage  of  message  routing  activities 
remains  crucial  in  enforcing  group  norms  concerning  the  type 
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of  information  sharing  (e.g.,  consensual ly  predefined  by  the 
group  prior  to  the  group  decision-making  process,  or  moni- 
tored by  the  mediator. 

c.   Evolving  Pattern  of  Communication  Requirements 

The  requirements  for  information  sharing  evolves 
through  various  phases  of  the  group  decision-making  process. 
For  example,  CRef.  6  3  argues  that  a  group  problem  solving 
phase  that  emphasizes  search  and  innovation  requires  more 
spontaneity,  and  therefore  an  open  communications  pattern; 
whereas,  bargaining  activities  that  induce  a  preference  for 
deliberate  control  of  information  exchange  would  be 
facilitated  by  using  individual—to— individual  communication 
channel s. 

Furthermore,  empirical  studies  have  shown  that, 
under  certain  circumstances,  communication  channels  can 
escalate  conflict  CRef.  7  1.  While  encouraging  information 
exchange  between  group  members  is  often  recognized  as  an 
effective  strategy  to  resolve  individual  differences, 
eliminating  communication  channels  has  shown  its  effective- 
ness in  preventing  deterioration  of  relationships.  While  the 
decision  to  encourage  or  discourage  communication  between 
decision  makers  depends  on  a  number  of  unpredictable 
sit uat ion— dependent  factors,  the  GDSS  communications  compo- 
nent should  be  designed  in  such  a  way  that  it  can 
accommodate  various  communications  needs  and  changes  during 
the  group  decision— making  process.  In  other  words,  the 
pattern  of  communications  protocols  should  vary  according  to 
the  dynamics  of  the  group  decision-making  process. 
4.   The  Role  of  the  Communications  Component 

One  of  the  roles  of  the  communications  component 
that  emerges  from  the  literature  is  that  it  makes  it  easier 
for  each  member  of  the  group  to  electronically  communicate 
without  having  to  be  concerned  about  detailed  and 
complicated    protocol    procedures.    This   issue   of   user 
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transparency  is  particularly  crucial  given  the  diversity, 
and  consequently  the  complexity,  of  the  communication 
requirements  and  facilities. 

However,  the  effort  to  obtain  ease  of  communication 
access  is  not  unique  to  the  design  of  group  DSS.  Rather,  it 
has  always  been  one  of  the  most  important  objectives  of 
computer  networks  design.  Yet,  one  c^n  identify  at  least 
three  roles  that  a\re  specific  to  a  communications  system  in 
group  problem  solving.  At  different  phases  of  the 
distributed  decision  process,  the  communications  system  can 
play  the  role  of  a  coordinator,  a  detective,  or  an  inventor. 

a.   The  Coordinator  Role 

Most  problem  solving  activity  begins  with 
situation  analysis  and  problem  definition.  Situation 
analysis  is  characterized  by  a  (common)  recognition  that 
there  exists  an  urgent  and  important  problem  to  be  solved. 
Once  identified  in  the  situation  analysis,  a  problem  is 
transformed  in  the  problem  definition  phase  in  such  a  way 
that  solutions  c^n  be  generated,  analyzed  and  selected. 
CRef.  8  1  and  CRef.  3  1  emphasize  that  the  success  of 
information  gathering  and  problem  definition  relies  on  the 
ability  of  the  group  to  eliminate  mistrust  and  threat  that 
could  cause  group  participants  to  withhold  or  distort 
information.  Walton  CRef.  6  ]  suggests  that  by  installing  a 
communication  medium  that  follows  some  norms  of  fairness 
(e.g.,  equality  of  participation,  preserving  autonomy), 
information  exchange  cavi  be  more  abundant  and  accurate.  The 
communication  component  should  thus  coordinate  various 
protocols  to  engender  participants'  confidence.  Such  proto- 
cols could  include  the  ones  that  (i)  assure  each  member  cavi 
successively  broadcast  his/her  ideas  given  a  equal  amount  of 
time,  or  (ii)  support  teleconferencing  to  synchronize 
arguments. 
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b.  The  Detective  Role: 

A  decision  maker's  analysis  could  be  distorted 
by  (i)  the  individual's  attempt  to  'spy'  on  others 
activities,  or  (ii)  the  influence  of  some  members  who  try  to 
take  over  art  individual's  responsibility.  The  communications 
component  should  then  play  the  role  of  detective  to  prevent 
unwanted  data  exchange  or  temporarily  disable  all  links,  or 
prevent  malicious  modification  of  public  data.  Concurrently, 
decision  makers  tend  to  delay  sending  their  individual 
results.  The  communications  component  should  press  its  users 
to  submit  opinions  before  a  given  due  date. 

From  a  general  perspective,  the  detective  role 
consists  of  enforcing  communications  protocols  previously 
defined  to  drive  the  collective  decision— making  process. 

c.  The  Inventor  Role: 

The  inventor  role  is  art  extension  of  the 
coordinator  role.  Given  the  complex  nature  of  a  collective 
decision  problem  and  the  diverse  and  unpredictable  decision 
approaches  adopted  by  the  participants,  the  communications 
component  should  be  able  to  detect  incompatible  information 
exchange,  and,  if  possible,  propose  alternate  formats.  The 
inventor  role  implies  <i)  potential  for  tolerance  to 
uncertainty  in  requests  and  needs  for  data  transfers,  and 
(ii)  continued  search  for  communications  operations  that 
facilitate  information  exchange  CRef.  10  1.  Thus  protocols 
for  distributed  GDSS  should  be  able  to  analyze,  evaluate  and 
determine  the  content  of  transmissible  information,  rather 
than  simply  perform  a  transport  task. 

The  f unct  ions  of  the  communications  component 
are  at  least  twofold.  First,  it  monitors  a  broad  spectrum  of 
data  transports  during  a  group  problem  solving  process.  This 
transport  function  ranges  from  information  exchange  to 
information  hiding,  from  selective  and  personalized  routing 
to   collective   diffusion   of   data   from   public  to  private 
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information.  Second,  it  coordinates  various  communications 
activities  (i.e.,  initialization,  operation  during  consensus 
search,  negotiation  and  mediation)  by  making  it  transparent 
to  the  members  of  the  decision  group. 

B.   AN  ARCHITECTURE  FOR  GROUP  DSS 

Co— oP  is  a  network  of  microcomputer— based  process— driven 
DSS  for  cooperative  multiple  criteria  group  decision  making 
(Figure  1).  Each  participant  of  the  group  decision  making 
process  has  his  own  individual  DSS  whose  model  base  is  based 
on  multiple  criteria  decision  methods  (MCDM)  and  other 
personal  decision  support  tools.  The  group  DSS  contains  a 
set  of  aggregation  of  preferences  techniques  and  consensus 
seeking  algorithms  that  ca.n  be  used  in  conjunction  with 
individual  MCDM. 

The  individual  DSS  are  linked  together  by  a  microcompu- 
ter local  area  network.  The  latter  support  both  locally  and 
remotely  (via  modern)  linked  individual  workstations. 
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MAIN  MENU 

1.  MULTIPLE  CRITERIA  GROUP  PROBLEM  DEFINITION 

2.  GROUP  NORN  DEFINITION 

3.  PRIORITIZATION  OF  EVALUATION  CRITERIA 

4.  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 

5.  DIRECT  INPUT  OF  THE  DATA 

6.  COMPUTATION  OF  GROUP  DECISION 

7.  IDENTIFICATION  OF  NEGOTIABLE  ALTERNATIVES 

Enter  a  nuaber  : 

MAIN  MENU 

For  HELP  enter  <ALT>  R  /  (ESQ  to  quit  Help 

- 

Figure    1.        The    Main    Menu 


III.  THE  MODEL  COMPONENT 


The  Model  Component  of  a  DSS  is  expected  to  support  the 
user  perform  the  following  problem— solving  activities: 
projection,  deduction,  analysis,  creation  of  alternatives, 
comparison  of  alternatives,  optimization  and  simulation 
CRef.  11  3.  The  literature  in  DSS  often  identifies  three 
modules  in  a  DSS  model  component:  the  model  base,  the  model 
base  management,  and  the  interface  unit.  This  chapter 
describes  the  three  components  of  the  group  DSS. 

ft.   THE  MODEL  BftSE 

The  Model  Base  of  a  DSS  consists  of  a  library  of 
decision  models  that  help  the  group  members  perform 
individual  and  group  analyses. 

1 .   The  Model  Base  for  Individual  Decision  Making 

In  addition   of   the   possibility   for   the   user  to 

directly  enter  his  preferences/assessments  to  the  system  and 

if  needed,  share  them  to  other  group  members,  the  purpose  of 

the  Co— oP   MCDM  model  base  is  to  provide  the  decision  makers 

with  a  set  of  decision  models  that  c^n    solve  the  most  common 

types  of   decision  problems.   Co— oP  contains  two  models  that 

(i)  cover  three  basic  decision  situations,   i.e.,  selection, 

ranking,  sorting,    (ii)  are  not  excessively  difficult  to  use 

for  the   decision   makers,   and   (iii)   could   interact  with 

techniques  of   aggregation  of   preferences.  The  MCDM  methods 

implemented  in  each  of  the  individual   DSS  Are       the  ftna lytic 

Hierarchy  Process  (fiHP)  CRef.  12  3,  and  ELECTRE  CRef. 13  1 

ELECTRE  and   ftHP  have  been  selected  for  two  reasons: 

(1)  The  two  MCDM  are  conceptually  robust,  and  prac- 
tically easy  to  learn  and  use.  They  have  proven 
their  usefulness  in  aiding  a  number  of  ill-defined 
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decision   situations   (for   example,    CRef.  14  D  and 
CRef.  15  ]  )  ' 

<£>  Neither  ELECT RE  nor  ftHP  require  full  information  on 
the  decision  maker's  preferences  and  assessment  of 
alternatives,  and  hence,  give  more  autonomy  and 
control  to  the  decision  maker  CRef.  16  1.  This 
feature  makes  it  easier  to  expand  the  algorithm  to 
resolve  group  decision  making. 

This  section   briefly  outlines  basic  concepts  of  the 

ELECTRE  and  ftHP  methods. 

a.   The  ELECTRE  Method:  Basic  Concepts 

There  Aire  a  number  of  reasons  that  make  it 
difficult  for  a  decision  maker  to  exhaustively  compare  all 
known  alternatives.  First,  the  decision  maker  often  cannot 
compare  some  alternatives,  due  to  uncertainty  associated 
with  the  measurements  and  evaluation.  Second,  the  decision 
maker  may  be  unwilling  to  compare  two  alternatives  because 
they  Aire  incomparable;  e.g.,  option  ft  is  better  than  option 
B  by  some  criteria,  whereas  B  is  better  than  ft  by  some  other 
criteria.  The  notion  of  indifference  in  utility  theory  does 
not  reflect  this  incornparabi  1  i ty  CRef.  17  D.  Last  but  not 
least,  the  i 1 1— struct uredness  and  occasional  inconsistency 
of  the  decision  maker's  preferences  are  serious  obstacles  to 
enforcing  the  complete  comparability  of  alternatives  (see 
CRef.  12  :  ). 

The  concept  of  outranking  relations  seeks  to 
compare  decision  alternatives  only  when  the  decision  maker's 
preferences  Aire  well  defined.  In  other  words,  at  outranks  ak 
when  the  information  obtained  from  the  decision  maker's 
preferences  safely  justifies  the  proposition  that  a4  is  at 
least  as  good  as  aJ  . 

The  outranking  relation  caiti  be  explained  by  two 
further  concepts:  the  presence  of  concordance  (i.e.,  for  a 
sufficiently  important  subset  of  evaluation  criteria,  ft  is 
at  least  weakly  preferred  to  B) ;  and  the  absence  of 
discordance    (i.e.,   among   the   criteria   for   which   B  is 
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preferred  to  ft,  there  is  no  significant  discordant 
preference  that  would  strongly  oppose  any  form  of  preference 
of  ft  over  B) . 

These  indexes  aire  used  in  conjunction  with 
concordance  and  discordance  'thresholds'  chosen  arbitrarily 
by  the  decision  maker  in  the  interval  CO, ID.  The  concordance 
threshold,  p,  is  more  severe  as  it  approaches  1;  the  discoi — 
dance  threshold,  q,  is  more  severe  as  it  approaches  0.  Then, 
the  outranking  relations  can    be  summarized  as  follows: 


IF 


THEN 


C»  /B   >=  p  and  D« /B    <  =  q 

ft  outranks  B,  and  B  outranks  ft 


ft  outranks  B 

The  alternatives  are 
equivalent 


Otherwise 


The  alternatives  are 
incomparable 


The  decision  maker  can  start  with  a  less  severe 
set  of  threshold  values,  and  then  sharpen  them  to  reduce  the 
number  of  outranking  relations. 

b.   The  ftna lytic  Hierarchy  Process:  Basic  Concepts 

The  Analytic  Hierarchy  Process  (ftHP)  is  a  MCDM 
method  that  attempts  to  support  complex  decision  problems  by 
successively  decomposing  and  synthesizing  various  elements 
of  a  decision  situation  CRef.  12  1.  Like  ELECTRE,  ftHP 
permits  subjective  and  qualitative  pairwise  comparison  of 
alternatives.  Unlike  ELECTRE  whose  concept  is  based  on  the 
notion  of  non-dominated  alternatives,  ftHP  has  its  foundation 
on  the  concept  of  priority.  The  latter  can  be  defined  as  a 
'level  of  strengths'  of  one  alternative  relative  to  another. 
Departing  from  a  predefined  priority  scale,  the  decision 
maker   is   asked   to   build   a  positive  reciprocal  matrix  of 


pairwise  comparison.  A  vector  of  priority  can  be  derived  by 
computing  the  eigenvector  of  the  reciprocal  matrix.  The 
property  of  the  eigenvector  resides  in  the  fact  that  it  is  a 
consistency  indicator.  Consistency  is  obtained  when  pairwise 
comparisons  are  transitively  and  proportionally  consistent. 

Additional  algorithms  are  added  to  help  measure 
the  decision  maker's  consistency.  These  algorithms  contrast 
the  user's  evaluation  scores  with  <i>  a  randomly  simulated 
score  that  represents  the  most  irrational  evaluation,  and 
(ii)  the  eigenvalue  that  represents  the  most  accurate 
consistency.  The  examination  of  the  consistency  values 
enables  the  user  to  eventually  revise  initial  judgments, 
and,  if  appropriate,  modify  them  to  improve  overall 
consistency. 

£-   The  Model  Base  for  Group  Decision  Waking 

Four  techniques  of  aggregation  of  preferences  are 
implemented  in  the  GDSS.  They  are  chosen  because  of  their 
popularity.  These  include  the  additive  function,  the  multi- 
plicative function,  the  sums— of —the— ranks  approach,  and  the 
sums— of— the— outranking—  relations  approach. 

In  conjunction  with  the  techniques  of  aggregation  of 
preferences,  the  weighed  majority  rule  is  also  implemented 
to  account  for  the  distribution  of  decision  power  among 
decision  makers.  This  rule  allows  the  group  members  to 
differentiate  their  decisional  power  according  to  various 
degrees  of  expertise  or  organizational  hierarchies. 

( 1 )    The  Sums— of —the— Outranking  — Re 1 at  ions  Pr inci  pie 

This  technique  is  derived  from  the  sum— of -t he-ranks 

technique  found  in   the   literature   of  aggregation 

of  preferences.  Formally,  it  can    be  expressed  as 
fol lows: 

Max  C  i=l   (k=l   o, „  )  ] 

This  technique  should  be  used  only  with  extreme 
care.  Experience  with  this  technique  has  shown  that 
the  idea  of  selecting  the  alternative  that  has  the 
highest  number  of  outranking  relations  works  fine 
only  when  the  number   of  alternatives  are    small.  An 

£6 


example  with  three  decision  makers  and  three 
alternatives,  with  a3  as  the  elected  alternative,  is 
given  below. 


Ordinal  Ranking        Outranking  Relations 


Rank   DMt    DM,    DM3     a,    a.    a3     Sums  of  the 

Relat  ions 


1  at  a3  a3  at  —  2  1  3 

c'  dt  at  da  a,  1  —  Id 

3  a3  a«  at  a3  2  2  -  4     (-Max 


(2)  Surns-of-t he-Ranks    Rule 

The      surns-of-the-Ranks      rule       (Borda,        1781)       can    be 
defined    as    follows: 


where  r.  4  is  the  rank  assigned  by  decision  maker 
d  to  alternative  at .  The  example  below  illustrates 
this  rule. 


Altern.  DMi        DM«       DM3  Surns-of-the-Ranks 


a,  4  4  2  10 

a*  1  1  3                          5        < —    Min 

a3  2  2  4                          8 

a4  3  3  1                           7 


Due  to  its  computational  simplicity  this  technique 
is  widely  used  to  determine  consensus  ranking.  Note 
that  the  averages-of-the-ranks  rule  yields  the  same 
results.  However,  when  there  are  ties,  the  results 
are  different. 

(3)    Additive  Ranking 

In  the  additive  ranking  method,  group  results  ar^s 
obtained  by  computing  the  arithmetic  mean  of  the 
individual  rankings   assigned   to   each  alternative. 
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at 

4 

4 

£ 

a« 

1 

1 

3 

a3 

£ 

£ 

4 

a* 

3 

3 

1 

Due  to  its  simplicity,  this  method  remains  one  of 
the  most  popular  aggregation  of  preferences 
techniques.  The  example  below  illustrates  this  rule. 


Altern.    DMt   DMa   DM3    Additive  Ranking 


^1  .  Ovi 

1.66 

2.66   — >  MAX 
£.  33 


( 4)    Multiplicative  Ranking 

The  philosophy  that  underlies  the  mul t i ol icat i ve 
approach  is  to  allow  more  voting  Dower  to  each 
decision  maker  of  the  group.  In  effect,  the 
multiplication  of  individual  cardinal  rankings 
amplifies  the  individual  opinions.  Specifically,  it 
allows  vetoes  to  take  place.  he  example  below 
illustrates  this  rule. 


Altern.    DM,   DMa   DMa   Multiplicative  Ranking 


a,  4     4     £  3. 17480 

aa  113  1.44££4 

a3  £     £     4  £.51984 

a«  3     3     1  £. 08008 


B.   THE  MODEL  MANAGER 

The  role  of  the  model  manager   is  to   coordinate  various 

modelling   activities   of   the   GDSS.  In  Co-oP,  the  multiple 

criteria   group   decision   making   is   decomposed   into  five 

decision  processes  (see  Figure  £  ). 

(1)    Definition  of  the  Group  Problem 

The  group  must  agree  upon  a  common  problem  and 
delegate  a  group  member  —  usually  the  group  leader 
or  the  secretary  —  to  define  a  problem.  In  the 
Co-oP  context,  the  defined  group  problem  consists  of 
identifying  the  alternatives  and  evaluation 
criteria.  Section  VIII  provides  an  example  of  this 
process. 
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<£)    Group  Norm  Definition 

The  group  has  to  identify  its  members  and  assign 
individual  passwords.  It  also  has  to  agree  upon  the 
way  it  handles  data  transfers,  interactive 
conversation,  utilization  of  electronic  mail,  and 
the  type(s)  of  techniques  of  aggregation  of 
preferences  adopted.  Division  of  evaluation  tasks 
between  group  members  can  also  be  specified.  The 
group  can  also  request  automatic  selection  and 
computation  of  appropriate  decision  technique. 

(3)  Individual  Evaluation  of  Criteria 

This  process  requires  that  each  group  member 
prioritise  his/her  evaluation  criteria.  This  can  be 
either  accomplished  by  asking  each  decision  maker  to 
directly  assign  weights  to  the  criteria  or  use  the 
Analytic  Hierarchy  Process  scheme  to  generate  the 
weighed  or  priority  vector.  Co— oP  allows  elimination 
of  weak  criteria. 

(4)  Individual  Assessment  of  Alternatives 

Given  a  chosen  problem,  this  process  allows  the 
group  members  to  individually  express  their 
preferences  regarding  the  alternatives.  This  process 
can  be  either  direct  (i.e.,  the  user  enters  cardinal 
weights  to  each  alternative)  or  indirect  (i.e.,  the 
group  member  uses  one  or  two  available  MCDM 
techniques) . 

(5)  Computation  of  Group  Results 

Guided  by  the  instructions  defined  in  the  group  norm 
(i.e.,  the  second  process),  group  results  are 
automatically  computed  once  all  individual  analyses 
are  submitted. 

1 .    Integration  of  Models 

Unless   otherwise   specified   by  the  group  norm,  the 

Co-oP    group    module    automatically    searches    for   all 

aggregation    techniques    that    are       compatible   with   the 

individual  MCDM  used.  If  direct  assessment  of  alternatives 

or  AHP  has  been  adopted  by  every  group  member  for  individual 

assessment   of   alternatives,   all   of   the  four  implemented 

techniques  will  be  computed,  since  the  latter  are    compatible 

with  the  AHP  in  that  they  are  based  on  cardinal  preferences. 

However,   the   ELECTRE   method    can       work    only   with   the 

sums— of— the  outranking— relations   and,  to   a  certain  degree, 

the  sums— of— the— ranks  algorithms. 
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When  both  available  MCDM  are  used  concurrently  by  a 
group  member,  the  Co-oP  model  manager  automatically  searches 
for  group  decision  techniques  that  can  accept  inputs  from 
both  AHP  and  ELECTRE.  When  a  single  user  alternately  uses 
both  available  MCDM,  the  Co-oP  model  manager  sequentially 
displays  group  results  according  to  all  possible  combina- 
tions of  individual  methods. 

Such  a  sensitivity  analysis  constitutes  a  point  of 
departure  for  the  group  to  start  exchanging  points  of  view 
and  directions  to  reach  agreement,  and,  if  any,  reducing 
tension.  The  group  can  then  temporarily  exit  from  ELECTRE, 
and  use  the  electronic  notepad  to  informally  resolve  these 
problems  of  control  and  of  tension  management.  If  some 
concessions  can  be  obtained,  the  participants  can  return  to 
ELECTRE  and  modify  evaluation  scores  accordingly.  By 
switching  back  and  forth  between  the  individual  DSS  and  the 
group  DSS  ,  the  participants  can  perform  'sequential  conces- 
sions' . 

2.   Combined  Use  of  MCDM   and  Techniques   of  Aggregation 

of  Preferences 
Bui  CRef.   £3  argues   for  a  unified  MCDM  framework. 
Such  an    attempt  is  necessary  to  (i)  support  a  wide   range  of 
decision   situations,    (ii)   enable   economy   of  information 
search,   (iii)  allow  division   of   evaluation   tasks.    In  the 
Co— oP  version   implemented  for   this  thesis,  there  at^e    three 
possible  levels   of   interaction   between   ELECTRE   and  AHP. 
First,  ELECTRE,   when  used   alone,  assumes  that  the  decision 
has  a  defined  vector  of  criterion  weights.  AHP   can  help  the 
ELECTRE  user   perform  prioritization   of  evaluation  criteria 
prior  to  the  pairwise   evaluation   of   alternatives.  Second, 
when  the   size  of  a  decision  problem  is  large,  the  number  of 
inputs  required  to  perform  the  AHP  method  can       be  excessive. 
The  Co— oP   user  can       use  ELECTRE  as  a  sorting  tool  to  reduce 
the  problem  size,  and  then  utilize  AHP.  Third,  since  the  two 
methods   refer   to   the   same  decision  space  (defined  in  the 

30 


Co— oP  first   process),   they   can   be   concurrently   used  to 
verify  the  decision  maker's  consistency. 

C.   THE  LINKAGE  MODULE 

The  purpose  of  the  Co-oP  Linkage  Module  is  to  feed  input 

data  to  various  models  of  the  Model  Base  and  to  route  output 

data  to  various  files  managed  by  the  Data  Base  Component. 
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Figure  2.   The  Co_oP  Decision  Making  Process 
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IV.   THE  INTERFACE  COMPONENT 


A.   SCREEN  DESIGN 

Despite  the  structured  aspect  of  the  multiple  criteria 
group  problem  solving  processes,  it  remains  ar\  eventual 
burden  for  the  decision  makers  to  memorize  what  he  has  done 
in  the  previous  steps.  Maintaining  a  high  degree  of 
coordination  and  cohesiveness  of  thoughts  is  particularly 
prevalent  in  complex  decision  problems  CRef.  17  1. 

Screen  Format ;  During  the  problem  definition  and  the 
group  norm  definition  processes,  data  entry  in  out  1 ine  form 
is  adopted.  Such  ^n  entry  form  would  not  only  facilitate  the 
thinking  process  of  themanagers,  but  also  help  decompose 
objectives  into  hierarchical  levels  CRef.  12  3.  Section  VIII 
exhibits  examplesof  the  outline  forms  used  for  defining  the 
col lect i vedecision  problem  and  the  definition  of  group 
norms. 

For  the  multiple  criteria  group  decision  processes 
(i.e.,  processes  3  through  7),  Co— oP  proposes  a  screen 
format  that  displays  simultaneously  four  different  windows 
(see  Section  VIII).  Whenever  possible,  Co-oP  uses  the  same 
screen  format  throughout  its  usage.  The  purpose  of  such  a 
design  is  to  provide  the  user  with  a  synoptic  andf ami  liar 
snapshot  of  the  current  state  of  the  problem,  throughout 
the  entire  decision-making  process. 

The  Step  Window  located  at  the  bottom  screen  keeps  the 
decision  maker  up  to  date  on  the  current  decision  making 
status.  It  consists  of  a  t wo- 1 i nest at  us  text  indicating 
alternatively  the  current  step  in  the  hierarchy  of  group 
problem  processes,  and  any  required  prompts  or  diagnostic 
messages  related  to  the  DSS-user  interaction. 
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The  Dialogue  Window  provides  a  conversational  medium 
between  the  decision  maker  and  the  DSS.  It  enables  the 
Question/  Answer  mode  of  interaction  to  be  accompanied  by- 
verbal  and  co lor /graphic  explanation  of  various  processing 
sequences  and  intermediate  results. 

To  support  the  decision  maker's  orientation  during  the 
group  decision-making  process,  the  Working  window  at  the 
upper  left  comer  of  the  screen  reminds  the  user  of  vital 
information  from  past  dialogue  or  inputs.  Also,  it  displays 
the  results  obtained  by  other  participants  if  requested. 

The  Solution  window  is  located  at  the  upper  right  of  the 
screen.  It  displays  intermediate  and  finalresults  including 
statistical  indexes,  and  highlights  optimal  values.  Tabular 
outputs  and  bar  graphs  are  combined  to  provide  alternate 
ways  to  represent  outputs. 

Throughout  the  entire  Co— oP  process,  the  windows  can  be 
recognized  by  their  colors.  However,  they  vary  in  size 
according  to  the  required  amount  of  information  displayed 
(e.g.,  number  of  decision  makers,  number  of  decision 
alternatives,  and  number  of  evaluation  criteria). 

In  addition  to  the  above  mentioned  window,  ari  electronic 
notepad  window  can  be  invoked  at  any  time  to  make  use  of 
person— or iented  and  unstructured  communications. 

B.   DIALOGUE  STYLE 

In  addition  to  the  window  structure  that  governs  the 
entire  Co-oP  group  decision  making  process,  Co— oP  combines 
menus  and  questions  to  communicate  with  its  users.  The 
purpose  of  these  dialogue  styles  is  to  provide  the  users 
with  a  structured,  simple  and  controlled  framework  to 
interact  with  an  integrated  set  of  multiple  criteria  group 
decision  methods.  Whenever  possible,  concise  queries  and 
uniform  terminology  are  used  throughout  the  six  processes  of 
the  Co-oP  group  decision  making  process. 
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The  use  of  menus  and  queries  also  facilitates  establish- 
ing error  procedures.  Although  error  control  procedures  are 
not  unique  to  the  design  of  multiple  user  interface,  art 
eventual  I/O  error  occurring  in  a  group  DSS  cart  generate 
unexpected  and  severe  consequences  in  a  distributed  DSS. 
Input  control  routines  have  been  implemented  at  each  entry 
level  to  minimize  the  likelihood  of  input  errors,  or  to 
maximize  the  possibility  of  recovering  from  errors  when  the 
latter  occur. 

To  handle  errors  made  by  the  users,  Co-oP  provides  two 
types  of  error  control  procedures.  The  first  type  of 
procedure  detects  syntax  errors.  For  instance,  entering  a 
negative  number  of  decision  makers  or  typing  art  invalid 
filename  would  be  gracefully  rejected  by  the  Co— oP  dialogue 
manager.  The  second  type  of  control  routines  attempts  to 
prevent  decision  makers  from  violating  basic  assumptions  or 
rules  of  the  decision  methods.  For  instance,  the  dialogue 
manager  will  refuse  a  concordance  threshold  higher  than  100 
percent  when  ELECTRE  is  used. 

Co-oP  also  generates  short  explanation  messages  in  the 
Step  window  to  maintain  the  user  confidence  in  the  system, 
or  at  least  make  the  multiple  criteria  group  decision  making 
less  unnatural  to  the  users. 

C.   THE  HELP  COMMANDS 

Help  facilities  are  implemented  on  a  separate  and 
resident  program  that  can  be  concurrently  invoked  during  the 
Co=oP  decision-making  process.  Due  to  its  relatively  large 
amount  of  text,  the  help  program  is  hierarchically  broken 
down  into  eight  section  (see  Figure  3). 
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What  Co_oP  IS 

<2> 

How  to  Use  It 
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AHP  Method 

<5> 

Elect re  Method 

SELECTION  : 

Figure    3.     The    Help    Menu 
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V.   THE  DATA  COMPONENT 


A.  THE  DATA  STRUCTURE 

The  current  version  of  Co-oP  is  a  process-centered  group 
DSS,  as  opposed  to  a  data-centered  DSS  (for  instance,  see 
CRef.  18  3  ).  As  a  consequence,  the  structure  of  the  Co-oP 
data  component  is  minimal.  Its  objective  is  to  (i)  insure 
smooth  and  fast  data  transport  from  one  MCDM  step  to  the 
other,  and  (ii)  facilitate  data  exchange  between  decision 
makers. 

Data  files  are  grouped  according  to  each  process.  These 
include  (i)  a  file  containing  the  problem  definition 
(Process  1),  (ii)  a  norm  file  for  each  group  norm,  (iii)  a 
solution  file  for  each  group  members,  and  (iv)  a  group 
results  file  for  each  decision  problem.  Data  dictionaries 
ar^e    given  in  Tables  1,  2,  3  and  4. 

To  minimize  the  time   needed  for   data  transfers  between 
individual  workstations,   data  files  ay^q    physically  central- 
ized and   stored  in   the  server   of  the   Local  Area  Network. 
However,  they  Are    functionally  distributed  in  that  they  CAri 
be  accessed  only  by  authorized  group  members. 

B.  THE  DATA  MANAGER 

In  the  current  version  of  the  GDSS,  the  Data  Manager 
performs  a  double  functions.  It  (i)  assures  that  data  Are 
correctly  transferred  to  their  location,  and  (ii)  checks  the 
consistency  transfer,  i.e.,  validating  the  number  of  data 
mod  if icat ion. 
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TABLE  1 

LOGICAL  DATA  BASE 

RECORDS  FOR  STORE  THE  DATA  OF  A  PROBLEM 

PROBLEM   ■   RECORD 

name  1 

string,  it  holds  the  name  of  the 

problem. 

levels 

Integer, it  holds  the  number  of  the 

criteria  1-5 

nurnof  alternat  ives 

Integer,  it  holds  the  number  of  the 

alternatives  that  a  problem  have 

level  1 

arrayC1..53  of  string,  it  holds  the 

names  of  the  criteria  of  level  1-5 

levels 

array  CI .. 5,  1 .. 5D  of  strings,  it  holds 

the  names  of  the  criteria  of  sub  level 

1.  (1-5)  -  5.  (1-5) 

level 3 

array C 1. . 5, 1 . . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sub level 

1.1.(1-5)  -  1.5(1-5) 

level 4 

array  CI. . 5,  1. . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sub level 

2. 1. (1-5)  -  2.5(1-5) 

levels 

array C 1 . . 5, 1 . . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 

3. 1. (1-5)  -  3.5(1-5) 

level6 

array C 1 . . 5, 1 . . 5]  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 

4. 1. (1-5)  -  4. 5(1-5) 

level 7 

array  CI. . 5,  1 .  . 53  of  strings,  it  holds 

the  names  of  the  criteria  of  sublevel 

5. 1. (1-5)  -  5.5(1-5) 

level  1 

integer,  it  holds  the  number  of  the 

criteria  1  —5 

sub level  1 

arrayC1.53  of  integers,  it  holds  the 

number  of  the  criteria  for  sublevels 

1.  (1-5)  -  5.  (1-5) 

sublevelS 

array  CI. . 5,  1 . . 53  of  integers,  it 

holds  the  number  of  the  criteria  in 

sublevels  1.1.(1-5)  -5.5.(1-5) 

alternat  ives 

arrayC1..153  of  strings.  It  holds 

the  names  of  the  alternatives  of 

the  problem 

END 
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TABLE  2 

LOGICAL  DATA 

BASE 

RECORDS  FOR  STORE  THE  DATA  OF  A  PROBLEM 

SOLUTION1   -  RECORD 

pfactor, qfact 

or 

integers,  they  holds  the  Concordance  and 
Discordance  Threshold 

numofcriteria 

integer,  it  holds  the  number  of  criteria 

nurnof  a  1 1  ernat 

i  ves 

integer,  it  holds  the  number  of  the 
alternat  ives 

alternat  i ves 

array  CI.. 93  of  string  ,  it  holds  the  name 
of  the  alternatives 

nurnof  users 

integer,  it  indicates  the  number  of  the 
users 

solved 

A\rra.y     CI..  33  of  boolean,  it  indicates  if  a 
particular  user  has  solve  the  problem 

grad ing 

array  CI.. 3D  of  array C 1. . 33 ,  i t  contains 
weights  of  criteria  1-5  for  each  user 

completed 

boolean,  it  indicates  if  the  evaluation  o 
the  criteria  is  completed  of  all  the  user 

completedal 1 

boolean,  it  indicates  if  the  problem  is 
solved 

vectorl 

array  CI.. 53  of  reals,  it  contains  the 
weights  of  the  criteria  of  sublevel  1  -5 

vector^, vector3, 

vector 4, vecto 

r5, 

vector6, vector7 

array  CI.. 5, 1.53  of  reals,  it  holds  the 

weights  of  all  the  rest  criteria 

norrnvectorl 

array  CI. . 1253  of  strings,  it  holds  the 

names  of  the  final  criteria  (  after  the 
evaluation  ) 

normvector2 

array  CI.. 1253  of  reals,  it  holds  the 
weights  of  the  final  criteria  (  after  the 
evaluation  ) 

norm index 

array  CI. . vect org  ; 

altrnatri  x 

altrixCl..#  alternat ives, 1 .. #  criteria3 

final  index 

arrayC1..33  of  boolean,  it  indicates  if  a 
specific  user  has  compute  the  evaluation 
of  the  alternatives 
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TABLE  2 

(cont  inued) 

ahp  :  record 

status 

boolean,  it  indicates  if  the  solution 

of  a  problem  has  been  computed  with  the 

fiHP 

altvectorl 

arrayC1..93  of  real,  it  contains  the  final 

weights  of  the  alternatives 

numof tries 

integer, it  indicates  how  many  times  the 

user  has  modify  the  solution  of  the 

problem 

end  ; 

elect re  :  record 

status 

boolean,  it  indicates  if  the  solution  of  a 

problem  has  been  computed  with  the  ELECTRE 

outranking 

array C 1 . . 9, 1. . 93  of  char,  it  contains  the 

outranking  matrix  for  the  alternatives 

numof tries 

integer, it  indicates  how  many  times  the 

user  has  modify  the  solution  of  the 

problem 

end  ; 

END  ; 
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TABLE  3 

LOGICAL  DATA  BASE   RECORDS  FOR  STORE  THE  DATA  OF  A  PROBLEM 

usersnames 

array  CI.. 33  of  stings,  it  holds  the 

names  of  the  users 

users ids 

array    CI.. 33  of  strings,  it  holds 

the  users  id 

nurnofcriteria 

integer,  it  holds  the  number  of  criteria 

nurnof a  1 1  ernat  i  ves 

integer,  it  holds  the  number  of  the 

alternat  ives 

alternat ives 

arrayC1..93  of  stringd,  it  holds  the  name 

of  the  alternatives 

normvectorl 

array     CI..  1253  of  strings,  it  holds  the 

names  of  the  final  criteria  (  after  the 

evaluation  ) 

norrnvectorS 

array     CI..  1253  of  reals,  it  holds  the 

weights  of  the  final  criteria  (  after  the 

evaluation  ) 

ahp  :  record 

status 

boolean,  it  indicates  if  the  solution 

of  a  problem  has  been  computed  with  the 

AHP 

altvectorl 

array  CI.. 93  of  real,  it  contains  the  final 

weights  of  the  alternatives 

numof tries 

integer, it  indicates  how  many  times  the 

user  has  modify  the  solution  of  the 

problem 

end  ; 

elect re  :  record 

status 

boolean,  it  indicates  if  the  solution  of  a 

problem  has  been  computed  with  the  ELECTRE 

outranking 

array C 1 . . 9, 1 . . 93  of  char,  it  contains  the 

outranking  matrix  for  the  alternatives 

nurnof  tries 

integer, it  indicates  how  many  times  the 

user  has  modify  the  solution  of  the 

problem 

end  ; 

END  ; 
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TABLE  4 

LOGICAL  DATA  BASE   RECORDS  FOR  STORE  THE  DATA  OF  A  PROBLEM 

NORM   =   RECORD 

nufflof users 

integer,  it  holds  the  number  of  the 

users  that  are  going  to  solve  the 

problem 

modi  fyt  irnes 

integer,  it  indicates  how  many  times  a 

user  can  modify  the  solution  of  the 

problem 

lastt  irne 

integer,  it  indicates  the  last  date  that 

a  user  must  submit  his  solution 

usersnames 

array  CI.. 3D  of  stings,  it  holds  the 

names  of  the  users 

specindex 

array  CI.. 53  of  strings,  it  indicates  the 

criteria  that  each  user  is  going  to  solve 

in  the  division  of  tasks  case 

users ids 

array    CI..  3D  of  strings,  it  holds 

the  users  id 

weight 

array  CI.. 33  of  real,  it  indicates 

the   weight  of  the  decision  of 

each  user 

agregat  ion 

boolean,  it  indicates  if  we  are    going  to 

use  all  the  techniques  of  aggregation 

of  pre ferertce 

nai 

boolean,  it  indicates  if  the  program 

will  use  NAI  automatically  after  the 

complication  of  the  group  result 

special ized 

boolean,  it  indicates  if  we  are    going 

to  use  division  of  tasks  or  not 

broadcast  ing 

boolean,  it  indicates  if  the  users  have 

the  right  to  see  the  others  users 

results 

mod  i  f y 

boolean,  it  indicates  if  the  user  has 

the  right  to  modify  the  solution  of 

the  problem 

agregat  ionname 

array  CI.. 43  of  characters,  it  indicates 

the  techniques  of  agregat ion  of 

preference  that  we  are    going  to  use 

END 
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VI.  THE  COMMUNICATIONS  COMPONENT 


A.  THE  GROUP  NORM  CONSTRUCTOR 

The  Co— oP  Group  Norm  Constructor  resides  in  the  second 
Co-oP  multiple  criteria  decision  making  process.  The  group 
leader  or  secretary  has  to  initiate  the  group  decision 
making  by  <1)  identifying  the  group  members,  (2)  assigning 
respective  decision  weights,  (3)  determining  the  mode  of 
group  decision  making  (e.g.,  division  of  evaluation  tasks  or 
'pooled'  decision  making),  (4)  selecting  the  techniques  of 
aggregation  of  preferences,  (5)  setting  the  mode  of 
information  exchange  (i.e.,  broadcast  of  individual 
results),  and  (6)  defining  the  deadline  for  the  group 
members  to  submit  individual  results. 

B.  THE  GROUP  NORM  FILTER 

The  Co-oP  Group  Norm  Filter  consits  of  a  set  of 
subroutines  that  enforce  the  norms  set  by  the  Group  Norm 
Monitor. 

C.  THE  FORMATTER 

The  main  role  of  the  Co-oP  formatter  is  to  convert 
individual  results  computed  by  the  ELECTRE  and  AHP  methods 
to  data  formats  that  can  be  inputted  into  the  modules 
containing  the  techniques  of  aggregation  of  preferences.  For 
instance,  individual  cardinal  rankings  a)re  converted  into 
ordinal  rankings  for  the  surns-of-the-ranks  algorithm. 
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VII.  IMPLEMENTATION  OF  THE  GDSS 


A.   SOFTWARE  STRUCTURE 

Turbo  Pascal  cannot  handle  program  files  whose  size  is 
larger  than  62  kilobytes.  To  override  such  constraint,  Co-oP 
has  been  decomposed  into  15  including  files.  The  latter  &r^e 
described  below.  Also,  filenames  under  IBM-PC-DOS  cannot 
have  more  than  eight  letters,  abbreviated  filenames  have 
been  used. 

DIRLIST1 

PROCEDURE  DIRLIST   displays  on  the  scrren  the  existing  files 

of  previously  defined  problems  <  problem_narne.  def ) 

DIRLIST2 

PROCEDURE   DirListA  The  same   as   above   but   for   the  norms 

f  i  les  (norrn_name.  gn) . 

PROCED 

FUNCTION  STUPCASE  turns  a  string  to  uppercase  characters. 

FUNCTION  EXIST   examines  if   the  file  requested  by  a  user  to 

access  exists.  If  it  exists  it   returns  the   value  TRUE  else 

returns  the  value  FALSE. 

PROCEDURE  WAIT   stops  the  execution  of  the  program  until  the 

moment  that  the  user  will  hit  a  key. 

PROCEDURE  CLEARSCREEN  clears  the  screen  for   line  1   to  line 

10  to  make  space  for  new  data. 

PROCEDURE   CONVERT   converts   a   string  to  the  corresponding 

numerical  value 

PROCEDURE  IDENTIFY  reads  the  user  input  and  accepts   it  only 

if  it  is  Y  or  N. 
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PROCEDURE  CHECKNUMBER   reads  a   number  that   the  user  enters 

and  accepts  it  only  if  it  is  within  a  predefined  range. 

PROCEDURE  S0RT1  sort  an  array  of  numbers. 

PROCEDURE  WRITENORMFILE  reads  from   the  program   the  current 

norm   data   and   writes   them   in   a  file  (e.g.,  data  of  the 

current  norm) . 

PROCEDURE  WRITEPROBLEMFILE   reads   the   norm   data   from  the 

current  norm  file  and  passes  them  to  the  program. 

PROCEDURE  READPROBLEMFILE  reads  from  the  program  the  problem 

data  and  writes  them  in  a   file  (e.g.,   data  of   the  current 

problem) . 

PROCEDURE  REPDNORMFILE   reads  the  data  for  the  corresponding 

norm  file  and  passes  them  to  the  program. 

PROCEDURE  READSOLUTIONFILE  read  the  data  from   the  user  file 

and  passes  them  to  the  program 

PROCEDURE  WRITESOLUTIONFILE  reads  the  current  user  data  from 

the  problem  and  writes  them  to  the  current  user  file. 

FILES 

PROCEDURE  OPENFILE  opens  for  the  first   time  a   file  that  it 

will  keep  the  data  of  a  new  problem. 

PROCEDURE  OPENSOLUTIONFILE   opens  for   the  first  time  a  file 

that  it  will  keep  the  data  of  the  solution  of   the  problem  ( 

one  for  each  user). 

PROCEDURE  OPENNORMFILE   opens  for  the  first  time  a  file  that 

it  will  keep  the  data  of  a  new  norm. 

UTILITES 

PROCEDURE  DISKDATft  asks   the   user   if   he   wants   to   see  a 

predefined  problem  or  norm. 

PROCEDURE   DISKSTPTUS  displays  all  the  existing  problems  and 

norms  of  the  current  directory. 

PROCEDURE  REP.D1  asks  the  user  the   name  of   the  problem  that 

he  wishes  to  solve. 


PROCEDURE  READS   asks  the   user  the  name  of  the  norm  that  he 

wants  to  use. 

PROCEDURE  READ3  asks  the  user'  s  name. 

PROCEDURE  READ4  asks  the  user's  password. 

PROCEDURE  READS  asks  the   decision  method   that  the   user  is 

going  to  use. 

PROCEDURE  DATA  includes  readl , readS, read3, read4. 

PROCEDURE     PRIORITYOFCRITERIA     permits    evaluation    of 

evaluation  criteria. 

STEP1 

PROCEDURE  CREATEPROBLEM  reads  the  data  of  a  new   problem  and 

writes  them  in  a  file. 

PROCEDURE   DISPLAY   displays   the   data   of  a  problem  to  the 

screen  after  the  request  of  the  user. 

PROCEDURE  CORRECTDATA   corrects  the   data  of   the  problem  in 

case  of  an  error  occurs. 

STEPS 

OVERLAY  PROCEDURE    NORMDEFINITION   reads  the   data  of  a  new 

norm  and  writes  them  in  a  file. 

STEPS- 1 

PROCEDURE  NORMSELECTION  asks  the  user  to   select  one   of  the 

existing  norms. 

PROCEDURE   DISPLAYNORM   displays   the   data  of  a  norm  to  the 

screen. 

STEPS 

PRIORITYOFCRITERIA  is  the  main  program  for  the  evaluation  of 

the  criteria. 

STEP  3-1 

OVERLAY  PROCEDURE   EVALUATE  includes  the  evaluation  of  a  set 

of  criteria  using  AHP. 
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OVERLAY   PROCEDURE   DIRECT1   is   similar   to    the   previous 
procedure  but  using  direct  mode. 

STEP3-S 

PROCEDURE   SELECTOR ITER I A   computes   the  final  weights  after 
the  computation  of  all  the  sets  of  criteria. 

PROCEDURE  FINALCRITERIA  gives  the   user   the   opportunity  to 
reduce  the  number  of  the  final  criteria. 

STEP4 

PROCEDURE   SOLVEWITHAHP    controls   the   evaluation   to   the 

alternatives  if  the  user  select  :  AHP,  direct   mode,  general 

direct   mode,    and   displays   the   final   weights   for   the 

altemat  i  ves. 

PROCEDURE  COMPUTEALTERNATIVES   controls   the   computation  of 

the  alternatives   according  to   the  method   that  the  user  is 

going  to  use. 

5TEP4-1 

OVERLAY  PROCEDURE  EVALUATE1  evaluates  a  set   of  alternatives 

using  AHP. 

OVERLAY  PROCEDURE   EVALUATES,  upon   request,  assigns  weights 

in   a   set   of    alternatives    directly    (without   grading 

previously  the  criteria). 

OVERLAY  PROCEDURE   DIRECT2A  evaluates   a  set  of  alternatives 

using  the  direct  mode. 

STEP4-2 

OVERLAY  PROCEDURE   ELECTRE   evaluates  a   set  of  alternatives 

using  the  ELECTRE  method. 

STEP6 

OVERLAY  PROCEDURE  GDSS  computes  the  group  results. 
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B.   EFFORT  DISTRIBUTION  AND  MAINTENANCE  PROBLEMS 
1 .   Effort  Distribution 

The  development   of  the   software  took  approximately 
six  man-months.  The  effort  distribution  is  indicated  below: 

TABLE  5  EFFORT  DISTRIBUTION 


AHP  & 
ELECTRE 

GROUP 
MODULE 

USE  OF 
NORM 

— ' —  - 

DIVISION 
OF  TASKS 

Requirement  Analysis 

3 

6 

a 

2. 

Initial  Design 

cr 

O 

■3 

cr 

Detailed  Design 

- 

- 

- 

Coding 

17 

n 

5 

3 

Unit  testing/Debugging 

6 

5 

2 

3 

Testing  Integration 

4 

5 

2 

2 

"A    Of  the  Total  time 

35 

30 

2G 

15 

(1) 


It   is   worth   noticing   that   the   iterative  design 

adopted   for    the   development    of   Co-oP   has   helped   in 

incrementing  the  functionalities  of  the  software. 

S.    Implementation  Problems  and  Maintenance  Issues 

Design  of  Algorithms: 

The  understanding  of  algorithms,  conversion  of 
algorithm  in  structured  pseudo-codes  required 
elaborated  design. 

Programming  Language: 

Mastering  the  language  adopted  for  the  software 
development  has  taken  a  substant ial learning  effort. 
Window  scrolling,  overlays,  cursor  handling — due  to 
the  limited  capabilited  of  the  programming  language 
— took  a  non-negligible  learning  effort. 


(2) 


(3) 


Debugging  logical  errors: 

Due  to   the   complexity   oft he   data   structures,  in 
particular,  the   manipulat ionof  matrices   in  the  AHP 
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techniques  and  the  integration  of  multiple-user 
files,  testing  the  correctness  of  data  transfers 
represented  an  important  part  in  the  testing  phase. 
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VIII.    REMOTE  MULTIPERSQN  DECISION  MAKING  IN  MILITARY, 

STRATEGIC  PLANNING 


A.  EXAMPLES  OF  POSSIBLE  USE  OF  GDSS  IN  THE  MILITARY  CONTEXT 
The  proposed   software  is   most  appropriate  for  decision 

situations  where  there  is  distribution  in  space  and  in  time. 
Such  decision  settings  are  often  encountered  at  various 
high-level  decision  making  in  the  armed  forces  as  well  as  in 
the  civil  government.  The  example  discussed  below 
illustrates  an  decision  example  that  deals  with  the 
selection  of  a  naval  warship. 

B.  A  HYPOTHETICAL  EXAMPLE 

To  exemplify  the  potential  usefulness  of  the  developed 
software,  this  section  describes  a  hypothetical  example.  The 
latter  consists  of  selecting  a  naval  ship.  Two  scenarios  are 
discussed  below.  The  first  one  assumes  a  multiple-user 
decision  situation  where  there  is  art  exclusive  division  of 
tasks  at  upper— level  decision.  In  other  words,  each  group 
member  is  assumed  to  have  special  expertise  and  is  assigned 
to  evaluate  the  alternatives  according  to  the  decision 
criteria  closely  related  to  his  knowledge.  The  second 
scenario  illustrates  a  group  decision  situation  where 
collective  assessment  at  the  staff  level  is  performed.  In 
other  words,  each  group  member  has  his/her  opinions  on  the 
entire  set  of  evaluation  criteria. 

SCENARIO  la  DIVISION  OF  TASKS  AT  UPPER-LEVEL  DECISION 

(1)    Decision  alternatives: 

Naval  ships  can  be  bought  from  three  countries:  the 
United  Kingdom,  the  Netherlands  and  West  Germany. 
This  example   concentrates  on   a  particular  class  of 
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warship,  i.e.,  the  Corvette.  For  the  purposes  of 
this  scenario,  the  specifications  of  the  three  ships 
ar^s    given  in  Tables  6  and  7. 

(£)    Decision  makers: 

Decision   makers   include   the   chief   of  the  weapon 
department,  the  chief  of   the  engineering  department 
and  the   chief  of   the  electronics  department . Al 1  of 
the  above  officers  airs       under   the   command   of  the 
chief   of   department   of   new   constructors,  a  Real 
Admiral.  Each  of  the  officers  has  specific  expertise 
in    the    performance    evaluation    of    the   ship 
candidates.   The   chief   of   the   weapon  department, 
officer  enjoys   however  the   highest  decision  power. 
It  is  assumed  that  the  decision  makers  operate  under 
more  or   less  complete   information  about  the  ships. 
Each  decision  maker  has  a  technical  staff  of  his  own 
that     performs     detailed     surveys     of     the 
characteristics  of  the  ships. 

(3)    Decision  making  norms: 

To  get  started,  a  member  of  the  decision  group  has 
to  define  the  decision  norms.  It  is  assumed  that  the 
chief  of  the  weapon  department  takes  this 
responsibility.  As  discussed  in  Chapter  V,  the  group 
leader  sets  different  distributed  computer— based 
communications  norms.  Figure  4  is  an  actual  display 
screen  of  the  interactive  norm  definition  process. 

<4)    Decision  making  procedures: 

The  evaluation  process  is  broken  down  to  group 
members.  Each  decision  member  has  the  exclusive 
right  to  assess  the  alternatives  according  to  the 
criteria  that  are  related  to  his  expertise. 

(5)    Evaluation  Criteria: 

For  the  sake  of  simplicity,  this  example  excludes 
political  and  economical  issues  that  in  real -life 
situations  often  play  an  important  role  in  the 
selection  process.  The  evaluation  criteria  ar^s 
grouped  in  four  sets:  'gun  systems',  'electronics', 
'engine'  and  'cost'.  The  latter  ars  respectively 
analyzed  by  officer  chief  of  the  weapon  department, 
the  chief  of  the  engineering  department  and  the 
chief  of  the  electronics  department.  Such  a  division 
of  evaluation  task  is  motivated  by  the  fact  that 
each  of  the  officers  detains  unique  expertise  their 
field.  Figure  5  lists  the  criteria  chosen  for  the 
ship  selection  problem. 


TABLE  6  SPECIFICATIONS  OF  THE  WAR  SHIPS 


GERMANY, FEDERAL 

NETHERLANDS 

UNIT. KINGDOM 

TYPE 

TYPE  1££ 

TYPE 

TYPE  £1 

DISPL 
(tons) 

3600  -  Full  load 

3050  -  Standard 
3630  -  Full  load 

3000  -  Standard 
3700  -  Full  load 

DIMENSION 
(ft) 

130x14. 5x6. 5 

130. 5x14. 4x6.  £ 

133x 15x43 

AIRCRAFTS 

£  Lynx  helicopter 
with  AQS  18  sonar 

£  AB  £1£  ASW 
hel icopt ers 

£  Lynx  helicopter 

MISSILES 

SSM:8  Harpoon 
SAM: 1-8  Sea  Spar 
£  mult  sting  laun 
chers;£  RAM  ASDM 

3SM:4  Harpoon 
SAM: NATO  Sea 
Sparrow  PDMS 

SSM  :8  Harpoon 
SAM  :Sea  wolf  VLS 

GUNS 

1 —76mm/ 62; 
Breda  105  mm  £0 
tube  rocket  laun 

£-76  mrn/6£ 
Compact 

1-4.5  in  55  Mk8 
C/WS:£-30  mm 
Goal  keeper 

A/S 
WEAPONS 

4  Mk£  3£  torpedo 
tubes 

4  MK£  torpedo 
fot  Mk  46  torp 

6  STWS  torpedo 
t  ubes 

MAIN 
ENGINES 

£  GE-LM  £500 
Gas  Turbines 
£  MTU  £0V  956 
TB9£  Diesels 

£  Rolls-Royce 
TM3B  Gas  Turb 
£  Rolls-Royce 
RMIC  Gas  Turb. 

£  Rol ls-Royce 

SMI A  Gas  Turb. 

4  Pax man  Valenta 

Diesels 

£  Gee  Electr  Mot 

SPEED 
(KNOTS) 

30   knot  s 

30  knot  s 

£8  knot  s 

RANGE 
(mi les) 

4000 

at  18  knots 

4700 

at  16  knots 

7800 

at  15  knots 

COMPLEMENT 

£04 

176 

143 

5£ 


TABLE  7  SPECIFICATIONS  OF  THE  WAR  SHIPS 


FEDERAL,  GERMANY 

RADAR 

1. SURVEILLANCE  : 

Type  996  ,  Plessey  AWS  -  5 

plus  AWS  -  6 

£. SEA  WOLF  GUIDANCE 

Two 

Marcony  Type  191 

3. NAVIGATION 

One 

Kelvin  Huges  Type  1007 

SONAR 

Type  £050  (  Bow  Moun 

ted  ) 

Type  £031  (  Towed  ar 

ray  ) 

UNITED,  KINGDOM 

RADAR 

1. SURVEILLANCE 

HSA 

DA  08 

£. FIRE  CONTROL 

HSA 

WM  £5  and  STIR 

3. NAVIGATION 

SMA 

3RM  £0 

SONAR 

• 

Active  Passive  Atlas 

DSQS 

£1  BZ  and  BO 

NETHERLANDS 

RADAR 

1. SURFACE  SURCH 

One 

DA  -  08 

£.FIRE  CONTROL 

One 

LW  -  08 

One 

WM  £5  SYSTEM 

One 

STIR 

3. NAVIGATION 

One 

ZW  -  06 

SONAR 

SQS  -  505  Bow  Mounted 
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(6)  Individual  Prioritization  of  Evaluation  Criteria: 

As  discussed   earlier,  Co-oP   currently  provides  two 
modes  for   individual   prioritization   of  evaluation 
criteria.    Each    group    member    can   choose   any 
combination  of  these  two   modes.   For   this  example, 
the  chief  of  the  weapon  department,  the  chief  of  the 
engineering   department   and    the    chief    of   the 
electronics   department   respectively  chose  the  AHP, 
direct,   and   direct   methods.    Figures   7    to   16 
successively     display     the     outputs    of    the 
prioritization  process  of  the  three  decision  makers. 
In  order  to  reduce  the  number f  evaluation  iteration, 
the  criteria  that  score   low   values  are    eliminated 
(Figure  17) . 

(7)  Individual  Evaluation  of  Alternatives 

To  support  the  individual  evaluation  of 
alternatives,  three  methods  are  supported  by  Co— oP: 
direct  assessment,  AHP  and  ELECTRE.  The  results  of 
this  process  are    given  in  Figures  18  to  ££. 

(8)  Group  Result 

The  group  result  is  displayed  in  Figure  £3.  It  is 
a  combination  of  the  outcomes  generated  by  three 
decision  makers.  Figure  £3  suggests  that  TYPE3  is 
the  best  one,  with  an  overall  score  of  .34. 


SCENARIO  £:   COLLECTIVE  ASSESSMENT  AT  THE  STAFF  LEVEL 

To  illustrate  the  Co— oP  ability  to  handle  group  decision 

making  situations  where  division   of   evaluation   tasks  does 

not  apply,   this  scenario  is  identical  to  the  first  one  with 

the   exception   in   that   there   are   only   four   evaluation 

criteria.   Furthermore,   these   criteria   are   used   by   all 

decision  members  for  evaluating  alternatives. 

<1)    Decision  alternatives:  Same  as  in  Scenario  1 

(£)    Decision  makers:  Same  as  in  Scenario  1 

<3>    Decision  making  norms: 

Figure  £4  is  an  actual  display  screen  of  the 
interactive  norm  definition  process. 

(4)    Decision  making  procedures: 

Unlike  in  scenario  1,  each  decision  member  assesses 
the  alternatives  according  to  all  of  the  criteria 
that  are  defined   for  the  problem  (See  Figure  £5). 
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(5)  Evaluation  Criteria: 

For  the  sake  of  simplicity,  this  example  retains 
only  four  principal  criteria,  i.e.,  'gun  systems', 
'electronics',  'engine'  and  'cost'. 

(6)  Individual  Prioritization  of  Evaluation  Criteria: 

Figures   £7   and   £8   display  the   outputs   of   the 

prioritization  process  of  the  first  decision  maker. 

In   order    to   reduce    the  number   of   evaluation 

iteration,  the  criteria  that  score  low  values  are 
eliminated  (Figure  £9). 

(7)  Individual  Evaluation  of  Alternatives 

The  results  of  this  process  arre  given  in  Figures  30 
to  41. 

(8)  Group  Result 

The  group  results  are  displayed  in  Figure  £4 
(computed  by  the  Direct  Mode)  and  Figure  £5 
(computed  by  ELECTRE) .  With  the  direct  mode,  TYPE  £ 
is  first  in  all  aggregation  of  preferences 
techniques,  including  the  sums— of— t he— ranks,  the 
additive  ranking,  the  multiplicative  ranking  and  the 
sum— of —outranking— re 1 at  ions.  This  result  is 
confirmed  by  the  ELECTRE  mode.  Note  that  in  the 
latter  mode,  only  the  surns-of-t he-ranks  and  sums— of- 
outrankings  relations  ar^e    computed. 


IX.  CONCLUSIONS 

This  thesis  was  concentrated  on  the  extension  of  a  the 
Co-oP  decision  support  system  for  multiple  criteria  group 
decision  making.  The  development  focused  in  the  creation  of 
a  computer-based  communications  framework  for  supporting 
decision  making  situations  that  are  distributed  in  time  and 
in  space.  The  software  is  written  in  Pascal  and  is 
operational  in  a  network  of  three  personal  computers. 

ft  naval  warship  selection  problem  was  discussed  to 
illustrate  the  usefulness  of  the  implemented  group  decision 
support  system. 

However,  the   proposed  decision  suppport  system  c&rt    only 
be  applied  to  a  certain   class   of   decision   situations.  In 
effect,  the   decision  makers  a.)re    assumed  to  be  cooperative, 
and  knowledgeable  about  multiple  criteria  decision  making. 


APPENDIX  A 
THE  PROGRAM  LISTING 

PROGRAM  GDSS  (  INPUT  ,  OUTPUT  )   ; 

■C*v-,  r-> 

LABEL 

normdef, back, solvel, solve£, solve3, 
telos  ,  create  , gdssl,nai,  10  ,  £0  ,  ; 


S0 


CONST 

si  ze 

= 

c 

posit  ionl 

= 

cr 
O 

posit  ion£ 

= 

1 

posit  ionS 

= 

£ 

rnaxcr  it  1 

= 

5 

maxcr it£ 

=s 

5 

rnaxcr  it3 

= 

5 

windows 

ss 

■-j 

number 

: 

a 

array C 1. . Windows, 1. . 43  of  Integer 


=  (  < 


(  2,  1! 

(  £  a: 


73, 

13 

)     , 

78, 

£1 

)     , 

73, 

£4 

)     ) 

TYPE 


name 

ask 

color 

num£ 

level 

vectors 

mat r i  x£0 

aray  1 

Title 

numl 

vectors 1 

vectorg 

vect orn 

vect orf 

tit  lei 

name£ 

arrayS 

el pida 


string  [size] 
string  C53  5 


string 

array 

array 

ar^a.y 

array 

array 

a.r^)ra.y 

array 

a.rr^a.y 

array 

array 

array 

array 

array 

array C 

array  C 


C£S:  ; 

1 . . Maxcr i t 1, 1 


1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 
1. 


Maxcr i  t 1 ,  1 . 
Maxcr it  1,1. 
£0, 1. . £0  3 
9,  1. . 93  of 


Maxcr it  ID  of  integer 
Maxcrit  13  of  name  ; 


. Maxcr it  1 3 
of  real  ; 
real  ; 


of  real 


Maxcrit 13 
Maxcr it  1 3 
Maxcrit 1 3 
1£53  of 
1£53  of 
£0]  of 
£03  of 


of 

of 

of 

name 

real 
real 
name 


name  ; 

integer 

real  ; 

5 

? 


.63  of  name 
9,  1.  .93  of 
43  of  char 


char 
5 


Casel      =   record 

narnel   :  name   ; 

numof problem,  levels, 

numof  al  temat  i  ves  ,  numof  users   :  integer 

level£, level3, level4, level5, 


levels, level7  :   level  ; 
level  1  :   title; 
sub  1  eve  11  :   nurnl  ; 
sub level 2  :   numS  ; 
alternatives  :   tit  lei  ; 


end  (*  record  ■*) 


case£     =  record 

pf actor, qf actor  :  real  ; 

numof criteria  :  integer  ; 

numof  al  temat  i  ves  :  integer  ; 

alternatives  :  tit  lei  ; 

numof users  :  integer  ; 

solved  :  array  CI.. 33  of  boolean  ; 

grading     :  arayl  ; 

Completed   :  boolean  ; 

completedall  :  boolean  ; 

vectorl  :  vectors 1  ; 

vectors, vector3,  vectorA, 

vectors, vectors, vector 7  :   vectors  ; 

normvectorl  :  vectorg  ; 

norrnvector£     :     vectorn     ; 

norm index  :  vectorg  ; 

altmatrix     :     rnatrix£iZi     ; 

finalindex     :     arrayC1..3D     of    boolean 

Final  index  1     :     array  CI.. 3D     of    boolean 

Plhp     :     record 

status  :  boolean  ; 

alt vectorl  :  vectorf  ; 

numof tries  :  integer  ; 
end  ; 
elect re  :  record 

status  :  boolean  ; 

outranking  :  array 9   ; 

numof tries  :  integer  ; 
end  ; 

end  5 (*  record  *) 

so 1 ut  i  on 1    =   record 

username  :  name     : 
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user id  :  name  ; 

rmmof criteria  :  integer  ; 

norrnvect  or  1  :  vectorg  ; 
norrnvect  or£  :  vectorn  ; 
nurnof alt ernat ives  :  integer  ; 
alternatives  :  tit  lei   ; 
ahp   :   record 

status  :  boolean  ; 

numoftries  :  integer  ; 


alt vector!  :  vectorf 


i 


end  ; 

elect re  :   record 

status  :  boolean  ; 
numoftries  :  integer  ; 
outranking  :  array9  ; 
end  ; 

end  ;  (*  record  *) 

norml  =       record 


nurnof users    , 

mod  i  f  yt  irnes, 

last time  :  integer 

usersnames  :  name£ 

specindex  :  title 

users ids  :  name£ 

weight  :  vector si 

current name  :  name 

agregat  ion, 

nai , 

special i  zed, 

broadcast  ing, 

modify  :  boolean  ; 


agregat i onname  :  elpida 
end  :  (*  record  *) 


VftR 


problernfile  :  file  of  easel  ; 
problem  ,  problerna  :  easel  ; 
specfile  :  file  of   easeiE:  ; 
specf i le£, specf i lei  :  case£  ; 
solut ion, solut iona  :  solutionl  ; 
solutionfile  :  file  of  solutionl 
norm,  riorr<]&     :  norml  ; 
normfile  :  file  of  norm!  ; 
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basicfile  :  text  ; 

axz, a, b, c, ai, bl, cl, numberx  , 

si,  sir:,  s3,  a5,  p3,  ax,  dl,  ab, 

w,  e,  i,  j,  k,  1,  f,  code,  sia^ 

1 ine, posit  ion,  levels, mal 1  , 

nurnof  altemat  i  ves,  x  1 ,  yl ,  codel, 

ma  12,  count ,  numofcr iter  i a,  count  imes  :  integer  ; 

precent, sum, integer 1 , score, rowl  :  real  ; 

array£  :  title  ; 

alternat  i  vesl  ,  altemat  ivesx  :  tit  lei  ; 

extension,  prnarnel,  pruser,  answer  , 

normname, answer 1, namex,  idx, 

problname, met hod x, prname,  pruserS,  specname  :  name 

vectors, vector3,  vector4, 

vectors, vectors, vector7  :  vectors  ; 

alt  mat  r  i  x  :  mat  rix £8  ; 

vector 1 , vectort an  :  vectorsl  ; 

al tvectorx, altvect or, alt vector 1  :  vectorf  ; 

choice, ch  :  char  ; 

answers  :  ask  ; 

color 1 , cr it eri a  1, cr iter iaS  :  color  ; 

array  1  :  numl  ; 

matri x 1 , result  :  numS  ; 

norrnvector  1 ,  exchangel  :  vectorg  ; 

norm vector 3, norm vectors, exchanges  :  vectorn  ; 

error  :  boolean  ; 

stringlSS, string  1  S3  :  string  CI S83  ; 

inte  :  string C 183  ; 

index, indexS  :  boolean  ; 

-C$1  DIRLIST1. PAS> 

-C$1  DIRLISTS.  PAS> 

■C$1  PROCED.PAS> 

-C$1  STEP  1. PAS > 

-C$1  FILES. PAS> 

-C$1  STEPS. PAS > 

-C$1  STEPS. PAS > 

-C$1  STEPS- 1.  PAS> 

-C$1  STEPS- 1. PAS > 

-C$1  STEP3-S.PAS> 

-C$1  STEP4-1.  PAS> 

•C$1  STEP4-S.  PAS> 

-C$1  UTILITES.PAS> 

-C$1  STEP3. PAS> 

-C$1  STEP4.PAS> 

BEGIN  (*   main  program   *> 

back: 

window  (  1,1, 88, S3)  ; 

text  background  (  14  )  ; 
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wr  i  t  e 
got oxy 
write 
got oxy 
wr  ite 
got oxy 
write 
got oxy 
wr  ite 
gotoxy 
wr  ite 
gotoxy 
wr  ite 
gotoxy 
write 


main  menu  '  )  ; 
(  3,4  )  ; 


clrscr  ; 

window  (  1,24,80,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  £,1  )  ; 

write  (  'multiple  criteria  group  dss  —  main  menu  '  ) 

window  (  1,1, 80, £3)  ; 

text co lor  (  blue  )  ; 

text  background  (  14  )  ; 

gotoxy  (  3  ,  £  )  ; 

write 

gotoxy 

write  ('  1.  Multiple  criteria  group  problem  definition'  )  ; 

gotoxy  (3,6)  ; 

'    £-  Group  norm  definition  '  )  ; 
(  3,8)  ; 

'3.  Prioritization  of  evaluation  criteria  '  )  ; 
(  3, 10  )   ; 

'4.  Individual  evaluation  of  alternatives  '  )  : 
(  3, 1£  )  ; 

'    5.  Direct  input  of  the  data  '  )  ; 
(3,  14)  ; 

'    6.  Computation  of  group  decision  '  )  ; 
(3, 16)  ; 

'7.  Identification  of  negotiable  alternatives  '  ')  ; 
(  3, 18  )  ; 
'    8.  Help  '  )  ; 
3,  £0)  ; 

'    9.  Exit  '  )  ; 
text co lor  (  black  )  ; 
repeat 

gotoxy  (  3, ££)  ; 
c  1  reo  1  ; 

write  ('    enter  a  number  :  '  )  ; 
read  (  answer  )  ; 
val  (  answer, count , code  )  ; 
until  ((  0  <  count)  and  (  count  <  10  )  and  (  code  =  0  ))  ; 


case 


count 


or 


1  : 


4: 
5: 
6: 
7: 
8: 
9: 
end 


goto  create 

goto  normdef 

goto  solvel 

goto  solveS 

goto  solve3 

goto  gdssl 

goto  nai 

goto  back 

goto  telos 
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(*  problem  definition  *) 

create : 

string  128  :=  '  step  1  :  problem  definition  '   ; 

diskstatus  ; 

createproblem  (  problem  )  ; 

<*  corect  the  data  of  the  problem  *) 
window  (  1,1, 80, 17)  ; 
text  background  (  blue  )  ; 

clrscr  ; 

text co lor  (  white  )  ; 

display  (  problem  )  ; 

window  (  1,13,80, £3  )  ; 
text  background  (  14  )  ; 
c 1 rscr  ; 

window  (  1,24,80,25  )   ; 
text  background  (  white  )  ; 
clrscr  ; 
text  co  lor  (  black.  )  ; 

gotoxy  (  2,1)  ; 

write  ('step  1:  multiple  criteria  group  problem 

def ini t ion  '  ) ; 
gotoxy  (  2, 2)  ; 
write  (  '  correct  the  data  of  the  problem  '  )  ; 

window  (  1,  18,80,23  )  ; 

text  background  (  14  )  ; 
clrscr  ; 

text co lor  (  black  )  ; 

correct dat a (  problem  )    ; 

clrscr  ; 

window  (  1,1, 80, 17)  ; 

text  background  (  blue  )  ; 

clrscr  ; 

text co lor  (  white  )  ; 

displayl  (  problem  ); 


window  (  1,18,80,23  )  ; 

text  background  (  14  )  ; 
clrscr  ; 

text co lor  (  black  )  ; 

correct dat a  1  (problem  )  ; 
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openfile     (    prnarne    )      ; 

wr  iteproblernf  i  le     ; 

goto    back       ; 

(*    norm    definition    *) 

norrndef: 

stringl£8     :=    '     step    £    :     norrndef  init  ion    '      ; 
diskstatus     ; 

norrndef  i n i  t  i on    ; 

o pernor mf  i  le     (    normnarne       )     ; 

writenormf ile  ; 
goto  back  5 

(*  priority  of  criteria  *) 

solvel : 

pr  i  or  i  t  y o f cr i  t  er  i  a  ; 

goto  back  ; 
(*  evaluation  of  alternatives  ■*) 

solve£: 

comput  eal  temat  ives  ; 

goto  back  ; 
(*  direct  input  of  the  data  -*) 

sol ve3 : 

stririgl£8  :=   'step  5  :  direct  input  of  the  weights'  ; 

diskstatus  ; 

clrscr     ; 

window     (     1 ,  £4,  81Z1,  £5)      ; 

text co lor  (  black  )  ; 

text  background  (  white  )  ; 

gotoxy  (  S, 2)  ; 

clreol  ; 

write  (  '  identification  of  the  problem  ' )  ; 


window  (  1,13,80,23)  ; 
text  background  (  14  )  ; 
clrscr  ; 

readl  ; 

readproblernf  i  le     ; 

read£     ; 

readnormf i le  ; 

read3  ; 

if  (  not  exist  (pruser)  )  then 
beg  in 

sol ut ion. ah p. status  :=  false  ; 

sol ut ion. elect re.  status  :=  false  ; 

sol ut ion. ahp. numof tries  :=  0  ; 

sol ut ion. elect re. numof tries  :=  0  ; 

Opensol ut ionf i le  (  pruser  ) 
end  ; 

read sol ut ionf i le  ; 


n  urno  f  cr  iteria 
n  umo  f cr  iteria 
norrnvector  1 
norrnvect  ore! 

read4     ; 

writenormf i le  ; 


=  so 1 ut  i on. Numof cr i  t  er i a 
=  so  1  ut  i  on .  N urno  f  cr  iteria 
=  so 1 ut  i  on. Normvect  or  1 
=  sol ut  ion. Normvect orS 


count  i  dies  :  =  so  1  ut  i  on.  Ah  p.  Numof  t  r  i  es  ; 
if  norm. Modify  then 
beg  in 

if  count imes  <  norm. Modi fyt lmes   then 
beg  in 

count imes  :=  count imes   +  1   ; 
index  :=  true  ; 
solvewithahp  5 
end 
else 
begin 

c 1 rscr  ; 

gotoxy  (  5, 9)  ; 

write  (  'you  cant  modify  your  output  '  )  ; 

gotoxy  (  5, 10  ) ; 

write  (  'hit  any  key  to  continue  ' )  ; 

read  (  kbd, ch  )  ; 
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goto  back  ; 
end  ; 

end 
else 
beg  in 

if  count  irnes  =  0    then 
beg  in 

count  irnes  :=  count  irnes   +  1  ; 
index  :=  true  ; 
solvewithahp  ; 
clrscr    ; 
end 
else 
beg  in 

clrscr  ; 

got ox y  (  5, 9)  ; 

write  (  'you  cant  modify  your  output  '   )   ; 
gotoxy  (  5, 10  ) ; 

write  (  'hit  any    key  to  continue  ' )  ; 
read  (  kbd, ch  )  ; 
goto  back  ; 
end  ; 
end  ; 

goto  back  ; 

(*   gdss  *) 

gdssl : 

stringl£8  :=  'step  5  :  computation  of  group  result 
string  129  :=  '  '   ; 
diskstatus  ; 

data  : 


readproblemf i le  ; 

if  norm. special i zed   Then 

beg  in 

if  (  not  exist (  specname  )  )   then 
beg  in 

clrscr  ; 
gotoxy (  S, S  )  ; 

write  (  'the  problem  is  not  yet  solved  '  )  ; 
gotoxy (  £, 4  )  ; 

write  (  'hit  any  key  to  continue  '  )  ; 
read  (kbd  , ch )  ; 
goto  back  ; 
end  ; 


readspecfile  ; 

if  ( (specf i le£. Completedal 1 )  and 

(specfi le£. electre.  Status)  )  then 
beg  in 

window  (1,1,80,  £3)  ; 

text  background  (  blue  )  ; 

clrscr  ; 

window  (1,24,80,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  £, 1 )  ; 

write  (  'step  6  :  computation  of  group  decition  '  )  ; 

gotoxy  (  £, £)  ; 

write  (  'final  result  (electre)  -  specialized  mode  '  )  ; 

window  (1,1,30, £3)   ; 

text  background  (  blue  )  ; 

c 1 rscr  ; 

text co lor  (  white  )  ; 

for  a  :=  1  to  specf  i  le£.  Nurnof alt ernat  ives   do 
begin 

answer  :=  specf  i  le£.  flit  ernat  ives  Call  ; 

delete  (  answer, 4, length (  answer  )  )  ; 

gotoxy (  £, a  +  3)  ; 

write  (  answer : 4  )   ; 
end  ; 

for  a  :=  1  to  specf  i  le£.  Nurnof  al  t  ernat  ives   do 
beg  in 

answer  :=  specf  i  1  e£.  flltemat  ives  Call  : 

delete  (  answer, 4, length (  answer)  )  ; 

gotoxy  (  5  +  (  a  *  5  )  ,  3)  ; 

write  (  answer: 3  )  ; 
end  ; 

for  a  :=  1  to  specf  i  le£.  Nurnof altemat  ives  do 
beg  in 
for  b  :=  1  to  specf  i  le£.  Nurnof  altemat  ives  do 
beg  in 

gotoxy  (5+(b*5),a+3)  ; 
write  (specf i le£. Electre. Outranking Ca, b]  )  ; 
end  ; 
end  ; 
text co lor  (  green  )  ; 
gotoxy  (  5, 10  )  ; 
write  ('*•*  sir\    outranking  relation  *  is  the   '  )  ; 
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gotoxy  (  5, 1 1  )  ; 

write  ('     one  that  satisfies  both  concordance   ' )  ; 
gotoxy  (  5, 12  )  ; 

write  ('      and  discordance  requirements.  ' ) ; 
Gotoxy  (  5, 13  )   ; 

write  ( '  -*■*  an       -   indicates  that  there  is   '  )  ; 
gotoxy  (  5, 14  )   ; 

write  ('     no  outranking  relations.   '  )  ; 
Gotoxy  (  5, 16  )  ; 

write  (  'hit  any  key  to  continue  '  )  ; 
read  (  kbd, ch  )  ; 
end  ; 


if  ( (specf i le£. Completedal 1  )   and   (specf i le£. flhp. Status  )) 
then 
beg  in 

altvectori  :=  specf i le£. Ahp. flit vector 1  ; 

window  (1,1,30,23)  ; 

t ext background  (  blue  )   ; 

clrscr  ; 

window  (1,24,80,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  •; 

gotoxy  (2,1)  ; 

write  (  'step  6  :  computation  of  group  decition  '  )  ; 

gotoxy  (  2,2)  ; 

write  (  'final  result  (ahp)  -  specialized  mode  '  )  ; 

window  (1,1,80,23)  ; 

text  background  (  blue  )  ; 

clrscr  ; 

text co lor  (  white  )  ; 

gotoxy  (2,3)  ; 

write  (  '  final  solution  '  )   ; 

for  al  :=  1  to  problem.  Numof alt emat  ives   do 
beg  in 

text co lor  (  white  )  ; 

gotoxy  (  (   (  5  *   al  ) )  ,  13   )  ; 

write  (  copy  (  problem.  Alt  emat  ives  Cal  3  ,  1 ,  3)  )  ; 

gotoxy  (  (   (  5  *   al  ) )  ,  20   )  ; 

text co lor  (  red  )  ; 

write  (  altvectori CalD :3:2  )  ; 
end  ; 

text  background  (  red  )  ; 
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for  al  :=  1  to   problem. Numof alt ernat ives  do 
beg  in 

gotoxy  (  (5  +  <  5  *  al  ) )  , 17  )  ; 

for  bl  :=  1  to   round (  alt vector  1 Cal 1     *  10  )   do 
begin 

gotoxy  (  (  <  5  *  al  )>  , (17  -bl)  )  ;  . 

write  (  '    ' )  ; 
end  ; 
end  ; 

text  background  (  blue  )  ; 

gotoxy  (  £, ££)  ; 

write  (  'hit  any  key  to  continue  '  )  ; 

read  (  kbd  , ch  )  ; 
end 
else 

c 1 rscr  ; 

gotoxy <  £,  £  )  ; 

write  (  'the  problem  is  not  yet  solved  '  )  ; 

got oxy (  4,  £  )  ; 

end 
else 

gdss   ; 

goto  back  ; 

( *   na  i  * ) 

nai  : 

(*  not  avaiable  yet  *) 

goto  back  ; 

t el os : 

END  .   <*  MAIN  PROGRAM  *) 


INCLUDE  FILE  STEP1 


PROCEDURE  CREATEPRQBLEM  (  var   problem  :  easel  )  ; 

LABEL 

10,  £0  , 30  ; 
VAR 

axs  :  integer  ; 

strl,str£  :  name  ; 

codel  :  integer  ; 
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BEGIN 

text mode  (  c80  )  ; 
clrscr  ; 
gotoxy  (  1,2)  ; 
clear 1 ( problem   )  ; 
problem.  Levels  :=  0  ; 
for  c  :=  1   to  5   do 

problem. Sublevel 1 Cc3 :=  0  ; 
for  c  :=  1  to  5  do 
begin 

for  b  :=  1  to  5   do 

problem.  Sub  level  2  Cc,  bl!  : =  0  ; 
end  ; 

text  background  (  black  )  ; 
text co lor  (white  )  ; 

window  (  1,1, 30, 23)   ; 
text  back ground  (  14  )   ; 
c  1  rscr  ; 

window  (  1,24,80,25)  ; 
text  background  (  white  )  ; 

clrscr  ; 

text  co  lor  (  black.  )  ; 
gotoxy (2, 1 )  ; 

write  ('step   1  :  multiple  criteria  group  problem 
def ini t  ion  '  )  ; 
gotoxy (2, £  )  ; 

write  (  'definition  of  alternatives  *  hit  q  to  stop  '  )  ; 
window  (  1,1,30,23)  ; 
text  background  (  14  )  ; 
clrscr  ; 

gotoxy  (  2, 2  )  ; 
text co lor  (  black  )  ; 

write  (  '  enter  the  name  of  the  problem   :  '  )  ; 
read  (  answer  )  ; 
prnarnel  :=  answer  ; 

delete (answer, 8, length (answer )  )  ; 
prname  :=  concat (answer  ,  '  .  Def  )  ; 

problem. Name 1  :=  answer  ; 


gotoxy  (  1,2); 

clreol  ; 

gotoxy  (  3, 2  )  ; 

write  ( '   name  of  pr o b 1 em 

1 i  ne  : =   4  ; 

a  :=   0  ; 

b  :=   0  J 


,  answer  ) 
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w  :  =   1  ; 
position  :=   1  ; 
c  :=  0  ; 

got  oxy  (1,1  irie  )  ; 
clearscreen  (  line  ) 


got oxy  (  3,  4  )  ; 

write  (  '       enter  the  alternatives     :  '  )  ; 

a5  :=  0  ; 

while  ((   answer  <>  '  q'  )  and  <  a5  <  19  )  )    do 

begin 

got oxy  (  4£, (  4  +  a5   )  )    ; 

a5  :=  a5  +  1  ; 

write  (  '   ' , a5, ' .   '  )  ; 

Read  (  answer  )  5 

answer  :  =  st upcase (answer )  ; 

problem,  flit emat  ives  Ca5]  !=  answer  ; 
end  ; 

problem.  Numofal  temat  ives  :=  a5— 1  ; 
for  a5  : =  1  to   10  do 
beg  in 
got  oxy  (  1,  a.5    +  2.    )  ; 
clreol  ; 


end  ; 

window  (  1 ,  24,  30,  £'5)  ; 
text  background  (  white  )  ; 
c 1 rscr  ; 

text co lor  (  black  )  ; 
got oxy (£, 1 )  ; 

write  ('step  1  :  multiple  criteria  group  problem 
def ini t  ion  '  )  ; 
got oxy (£, £  )  ; 

write  ('definition  of  criteria  *   1 ) st  level  £)nd  level 
3)nd  level  q)uit'   )  ; 


window  (  1,1, 30, £3) 
text  background  (  14  ) 
text co lor  (  black  ) 
repeat 

got oxy  (  3,1 ine  ) 

write  (  '       enter  the  number  of  the  level 

read  (  answer  )  ; 

answer  :=  st upcase (answer )  ; 


1 i  ne  : =  4  ; 

dell ine   ; 
until  (answer  =  '  1'  )  or  (answer  =  '  £)  or  (answer  =  '  3'  )  ; 
while  answer  <>  'q'  do 
beg  in 

clearscreeri  (  line  )  ; 
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if   answer  =  ' 1'    then 
beg  in 

gotoxy (5, 1 ine)  ; 

clreol  ; 

position  :=  position!  ; 

clearscreen  (  line  )  ; 

text co lor  (blue)  ; 

gotoxy (posit  ion,  1 ine)  ; 

t  e  x  t  co 1 or  (blue  )  ; 

write  (a+  1, ' . '  )  ; 

Got  o x y ( pos  i  t  i  on  +  3  ,  1 i  ne  )  ; 

read  (  answer  ) ; 

answer  :=  st upcase (answer )  ; 

if  (  answer   <>  '  £'  )  and  (  answer  <>  '3'  ) 

and  (  answer  <>  q' ) and  (answer  <>' 1' )         then 
beg  in 

a  :=  a  +  1  ; 

problem. Level  1 [  a  3  :  =  answer  5 

1 ine  : =  1 i  ne  +  1  5 

b  :=  1Z1  ; 

goto  HZi 
end  ; 
end  ; 

problem. levels  :=  a  ; 
If  answer  -  ' 21   then 

beg  in 

gotoxy  (  5, line  )   ; 
clreol  ; 

text  co  lor  (  14  ')  ; 
position  :=  positions  ; 
:iZi  :   clearscreen  (  line  )  ; 
text co lor  (  red  )  ; 
gotoxy  (  position, line  )  ; 
write  (a, ' . ' , b+1  ) ; 
Gotoxy  (  position  +  5  ,  line  ) 5 
read  (  answer  )  ; 
answer  :=  st upcase ( answer )  5 
if  (  answer   (>  '1'  )  and  (  answer  <>  '3'  ) 

and  (  answer  <>  ' q' )    and  (  answer  <>'£')    then 
beg  in 

b  :=  b  +  1  5 

problem. Levels  C  a, b  1     :=  answer  ; 
line  : =  line  +  1  ; 
c  :  =  1Z1   ; 
goto  £0  ; 
end  ; 
end  ; 

problem. Sub level  1 Ca]  :=  b  ; 
if  answer  =  '3'  then 
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beg  in 

got ox y (5, 1 ine  )  ; 

clreol  ; 

text co lor  (  yellow  )  ; 

position  :=  positions  ; 
:  clear screen  (  line  >  ; 

textcolor  (  yellow  )  ; 

g  ot  o x  y  (  pos  i  t  i  on,  line  ) 

write   (a, ' . ' , b, ' . * , c+1 


Gotoxy  (position  +7  ,  line  ) 

read  (  answer  )  ; 

answer  :=  st upcase (answer ) ; 

while  answer  =  '3'  do 

begin 

gotoxy  (  position  +7  ,  line 

clreol ; 

read  (  answer  )  ; 

answer  : =  st upcase (answer ) ; 
end  ; 

if  (  answer  <>  ' £'  )  and 
and  (  answer  <>  ' q' ) 
beg  in 

c  :=  e  +1  ; 

case   a     of 


(  answer  <>  '  1 '  ) 


then 


1 


4 

5 


problem. Level 3 Cb, cD 
problem. Levels  Cb, cl 
problem. Level 5 Cb, cH 
problem. Levels  Cb, c3 
problem. Level  7 Cb, c3 


answer 
answer 
answer 
answer 
answer 


1 ine  : =  1 ine  +  1  ; 
goto  30 
end  ; 
end  ; 

problem.  SublevelE'Ca,  b] 
end  ; 


window  (1,1,30,25 
clrscr  ; 


) 


END 


PROCEDURE  DISPLAY  (  problem  :  easel  )  ; 
VflR 


1  ine 


c  , co 11, co 12, co 1 3 


integer 


change  :  boolean 


7; 


BEGIN 


gotoxy (3,  1 )  ; 

textcolor (wh i te  ); 

1 i  ne  : =  2  ; 

co 11  : =  2  ; 

change  :=  false  ; 

for  a:=l  to    problem. levels      Do 

begin 

if   (  length (problem,  level  1 Ca3 )  >  1  )  Then 
begin 

textcolor (white)  ; 

if   (  line  >  14  )  then 

beg  in 

col  1  :=  col  1  +  30  ; 
1 i  ne  :  =  2  ; 
change  :=  true  ; 
end  ; 

if   (  (  line  >  14  )  and  (  change  )  )  then 
beg  in 

coll  :=  coll  +  68  ; 
1 i  ne  :  =  2  ; 
end  ; 

gotoxy (  coll, line  )  ; 

writeln  (a,  '.  '  , Problem. Level  1 Ca3  ); 
1 i  ne :  =  1 i  ne+  1  ; 

for  b  :=  1  to    problem.  Sub  level  1  Call    do 
beg  in 

textcolor  (  red  )  ; 

if  (length  ( problem. Level 2 Ca, bD  )  >  1  )   then 

beg  in 

if   (  line  >  14  )  then 
beg  in 

coll  :=  coll  +  38  ; 

1 i  ne  : =  2 ; 

change  :=  true  ; 
end  ; 

if   (  (  line  >  14  )  and  (  change  )  )  then 
beg  in 

coll  :=  coll  +  68  5 

1 i  ne  : =  2  ; 
end  ; 

gotoxy  (  col  1  +  1,  line  )  ; 

write (a, '  .  '  ,  B, '   ',  problem. Level2 Ca, b3 )  ; 
1 i  ne  : =  1 i  ne  +  1  ; 

for  c:  =  l  to  problem. Sub  level 2 Ca, b]    do 
begin 

textcolor  (  yellow  )  ; 


case     a        of 
1  :  begin 

if  ( length (problem. Level3Cb, cD )> 1 )   then 

begin 

if   (  line  >  15  )  then 
beg  in 

coll  :=  coll  +  30  ; 
line  : =  2  ; 
change  :=  true  ; 
end  ; 

if   ((line) 14)  and  (change))  then 
begin 

coll  :=  coll  +  61Z1  ; 
1 i  ne  : =  2  ; 
end  ; 

gotoxy  (  col  1+2',  line  )  ; 
write (a, » . ' , B, ' . ' , C, '   ' , 

problem. Level 3 Cb, cl )  ; 
1 ine  :=  1 ine  +  1  ; 
end  ; 
end  ; 
2:  begin 

if  ( length (problem. Level A Cb, cl )) 1 )   then 
begin 

if   (  line  )  15  )  then 
beg  in 

col  1  :  =  col  1  +  3i3  ; 
1 i  ne  : =  2  ; 
change  :=  true  ; 
end  ; 

if   (  (  line  )  14  )  and  (  change  )  )  then 
beg  in 

coll  :=  coll  +  £0  ; 
1 i  ne  : =  2  ; 
end  ; 

gotoxy  (  col  1+2,  line  )   ; 
write(a,  '  .  '  , B,  '  .  '  , C,  '    '  , 

problem. Level 4 Cb,  c3 )  ; 
1 ine  : =  1 ine  +  1  ; 
end  ; 
end  ; 
3:  begin 

if  (   length (  problem. Level 5 Cb, cl )> 1 )  then 
beg  in 

if   (  line  )  15  )  then 
begin 

coll  :==  coll  +  30  5 
1 i  ne  : =  2  ; 
change  :=  true  ; 
end  ; 
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if        (     (     line    >     14    )     and     (change))        then 
beg  in 

coll     :=    coll    +    £iZi     ; 

1 ine     :=    £     ; 
end     ; 
gotoxy     (    col  1+iS,  1  ine)     ; 

write (a, ' . ' , B, ' . ' , C, '   ' , 

problem. LevelSCb, c3 )  ; 
1 ine  :=  1 ine  +  1  ; 
end  ; 
end  ; 
4:  begin 

if  (  length ( problem. LevelSCb,  cl )  >  1)   then 
beg  in 

if   (  line  >  15  )  then 
begin 

coll  :=  coll  +  30  ; 
1 ine  :=  £  ; 
change  :=  true  ; 
end  ; 

if   (  (  line  >  14  )  and  (  change  )  )  then 
beg  in 

coll  :=  coll  +  SiZi  ; 
1 ine  :=  £  ; 
end  ; 

gotoxy  (  col i+£, line  )  ; 
writeCa, ' . ' , B, ' . ' , C, '   ' , 

problem. LevelSCb, cl )      ; 
1 ine  : =  1 ine  +  1  ; 
end  ; 
end  ; 
5:  begin 

if  (   lengt h ( problem. Level  7 Cb, cl )>  1 )  then 
beg  in 

if   (  line  >  15  )  then 
beg  in 

coll     :=    coll    +    3iZi     ? 
1 i  ne     : =    2     ; 
change     :=    true     ; 
end     ; 

if   (  (  line  >  14  )  and  (  change  )  )  then 
beg  in 

coll  :=  coll  +  60  ; 
1 ine  :=  £  ; 
end  ; 

gotoxy  (  coll+£, line  )  ; 
write(a, ' . ' , B, ' . ' , C, »   ' , 

problem. Level 7 Cb, cl )  ; 
1 ine  :=  1 ine  +  1  ; 
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end  ; 

end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 

END  ; 

PROCEDURE  DISPLflYl  (  problem  :  easel  )  ; 

VAR 

1 ine  :  integer  ; 

BEGIN 

gotoxy  (3,2)  ; 
text co lor (white  ); 

write  (  'alternatives  :  '  )  ; 

for  line  :=  1  to  problem,  nurnofal  temat  ives  Do 

begin 

gotoxy  (  4,  line  +  3  )  ; 

write  (line,'.  ',  problem,  al  temat  ives  C 1  ineD  )  ; 
end  5 

END  ; 

PROCEDURE  CORRECTDflTft  (  var    problem  :  easel  )   ; 

BEGIN 

repeat 

gotoxy  (  I,£  )  ; 

write  ('do  you  want  to  modify  the  criteria  (y/n)  ?   '  )  ; 

Repeat 

gotoxy (47, £  )  ; 

clreol  ; 

read  (  answer  )  ; 

answer  :=  st upcase ( answer )  ; 
until   (  (  answer  =  ' y' )  or  (  answer  =  ' n'  )  )  ; 
if  answer  =  ' y'  then 
begin 

gotoxy  (1,4)  ; 

write     Center       the    tree    level     (    e.g. ,£.1.3    )        ?'      )      ; 

Gotoxy     (     47,  4    )      ; 

read     ( answers ) ; 
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END 


answers  :=  st upcase (answerS) ; 

gotoxy   (1,6)  ; 

write  (     '  name  of  criteria 

gotoxy  (43, 6) ; 

write  (  ' ?' )  ; 

Gotoxy (47, 6)  ; 

read (  answer 1)  5 

w  :  =  1  ; 

convert  (  answer£, w, d 1 )  ; 

al  :=  dl  ; 

w  :=  3; 

convert  (  answer£, w, d 1 )  ; 

bl  :=  dl  ; 

w  :=  5  ; 

convert  (  answer 2, w, d 1 )  ; 

cl  :=  dl  ; 


answerc' 


if   (cl  =  13  )  and  (bl  = 

problem. Level  1 Cal ]  : 

if   (  al  >  problem. level 

problem. Levels  : =  pr 

if   cl  =  1Z1    then 

beg  in 

problem. Leve  IE' Cal , bl ] 

if  (  bl  >  problem. Sab 1 

problem. Sub level  1 Cal 1 

end 

else 

beg  in 

case 

1 
p 


0  )  and  (  al  <>  3  )  then 
=  st upcase (  answer  1)  : 
s  )  Then 
oblem. Levels  +  1  5 


:=   stu pease (  answer 1)  ; 
evel 1  Cal  ]  )  then 
:=   problem. Subl evel 1 Cal ] +1 


al  of 
prob 1 em. Leve 1 3  C I 
problem.  Leve  14 Cl 
problem.  Leve  15  C! 
problem.  Level  SCI 
problem.  Leve  17  Cl 


bl, 

cl] 

1  = 

St 

upcase ( 

answer 1 ) 

5 

bl, 

cl] 

:  = 

St 

.ipease  ( 

answer 1 ) 

5 

bl, 

cl3 

:  = 

St 

upcase ( 

answer  1 ) 

» 

bl, 

cl] 

,  =s 

St 

-ipease  ( 

answer  1 ) 

^ 

bl, 

Cl] 

J  = 

st 

upcase ( 

answer! ) 

? 

end 


if  (  cl  >  problem. Subl 
pro  b 1 em . SublevelSCal, b 

end  ; 

gotoxy  (  47,  £  )  ; 

clreol  ; 

gotoxy  (47, 4  )  ; 

clreol  ; 

gotoxy  (  47, 6  )  ; 

c 1 reo 1  ; 

al  :=  0  ;  bl  :=  0 
end  ; 
unt  i 1  answer  =  ' n' 


evel£ Cal , bl ]  )  then 

1 ]  : = problem. Sub leve 121 , bl ] +1 ; 


cl  :=  0 
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PROCEDURE  CQRRECTDflTQl  (  var  problem  :  easel  )  ; 

BEGIN 

repeat 

got  ok y  (  1 ,  £  )  ; 

write  ('do  you  want  to  modify  the  alternatives  (y/n)?) : 

Repeat 

gotoxy  (52,  £  )  ; 

c 1 reo 1  ; 

read  (  answer  )  ; 

answer  :=  stupcase (answer)  ; 
until   ( (  answer  =  ' y' )  or  (  answer  =  ' n'  )  )  ; 
if  answer  =  ' y'  then 

beg  in 

gotoxy (1,4)  ; 

write  Center  the  number  of  the  al  t  ernat  i  ve  (e.  g.  ,  3)  ?'  ) 
Got  oxy  (  53, 4  )   ; 
read  (answer£) ; 

answers  :=  st upcase (answer£) ; 
gotoxy   (  1,6  )  ; 

write  ('  name  of  alternative   ',  answer£   )  ; 
gotoxy  (33, 6) ; 
write  (  ' ?'  )  ; 
Gotoxy (37, 6)  ; 
read (  answer 1)  ; 
val  (answer£, a,  code )  ; 

problem,  alt  ernat  ives  Call  :=  3t  upcase  (answer  1 ).  ; 
gotoxy  (  47,  £  )  ; 
clreol  ; 

gotoxy  (47, 4  )   ; 
clreol  ; 

gotoxy  (  47,  6  )  ; 
clreol  ; 
end  ; 
unt i 1  answer  =  '  n'   ; 

END  ; 


INCLUDE    FI LESTEP2 


OVERLAY    PROCEDURE       NORMDEFINITION    ; 

VftR 

xl,yl, limit  :  integer  ; 
count 3  :  real  ; 
last hour  :  string C££D  ; 
problemnamel  :  name  ; 
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BEGIN 


window  (  1,1, 80, £2)  ; 
text  background  (  14  )  ; 
c 1 rscr  ; 

window  (  1,24,80,25)  ; 

text  background  (white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

got ox y  (  2, 1 )  ; 

write  (  '  step  2  :  group  norm  definition  '  )  ; 

window  (  1,1,30,22)  ; 
text  background  (  14  )  ; 
clrscr  ; 
text co lor  (  black  )  ; 

got ox y  (  2,2)  : 

write  (  'name  of  the  group  norm  '  )  ; 

gotoxy  (  25,  2)  ; 

write  <  ' ?   '  )  ; 

Read  (  answer  )  ; 

norm. Current name  :=  st upcase (answer )  ; 

delete  (  answer, 8, length (answer)  )  ; 

norrnname  :=  concat  (  answer  ,  '  .  Gn'  )  ; 

text  co lor  (  blue  )  ; 

gotoxy  (  2, 4  )  ; 

write  (  '1.  Identification  of  group  members   '  )  ; 

text co lor  (  black  )  ; 

gotoxy  (5,6); 

write  (   '1.1   Number  of  group  members  (  max  3  )  '  )  ; 

gotoxy  (  52, 6  ) ; 

write  (' ?   '  )  ; 

Count  3  :  =  iZi  ; 

xl  :=55  ;  yl  :=6  ;  limit  :=4  5 

checknumber  (  answer  ,  x 1 , y 1 ,  1 imi t ,  count 3  )  ; 

norm. Numof users  :=  trunc(  count 3)  ; 

for  a  :=  1  to  trunc(  count 3)  do 

b  e  g  i  n 

gotoxy  (  9, 6+a  )  ; 

write  ('  -   name  of  member    #  '  ,  a  )  ; 

gotoxy  (  52, 6+a  ) ; 

write  (  ' ?   '  )  ; 

Gotoxy  (  55, 6+a  )  ; 

read  (  answer  )  ; 

norm. Usersnames Ca3  :=  st upcase (answer )  ; 
end  ; 
gotoxy  (  5, a+7  )  ; 
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write  C1.2   Id  of  member 
gotoxy  (  52, 7+a  ) 
write  (' ?   '  )  ; 
Gotoxy  (  55, a+7) 
read  (  answer  )  ; 
norm. Users idsC 13 


',  norm. Usersnames C 1 3  )  ; 


=  stupcase (answer )  ; 


gotoxy  (  2,  12  )  ; 

text co lor  (  blue  )  ; 

write  (  '2.  Group  decition  techniques   '  ) 

text co lor  (  black  )  ; 

gotoxy  (  5, 14  )  ; 

write  (  ' 2.  1  Weighted  majority  rule  :  '  )  ; 

gotoxy  (  9, 15)  ; 

write  (  '-   equal  weights  (y/n)'  )  ; 

gotoxy  <  52,  15  )  ; 

write  (  ' ?   '  )  ? 

XI  :=  55  ;  yl  :=  15  ; 

identify  (  answer  , xl,yl  )  ; 

if   answer  =  ' y'  then 
beg  in 

for  a  :=  1  to  norm.  Nurnof users  do 
norm. Wei ght Ca3  :=  1 
end 
else 
beg  in 

for  a  :=  1  to  norm.  Nurnof  users  do 

beg  in 

gotoxy  (  12, 15  +  a  )  ; 


write  (  '-   weight  for 


norm.  Usersnarnes  Ca3  ) 


gotoxy  (  52, 15+a  ) ; 

write  (  ' ?   '  )  ; 

Count 3  :=  0  ; 

xl  :=  55  ;  yl  :=  (  15  +  a  )  ;  limit  :=  100  ; 

checknumber  (  answer  ,  xl,yl, limit, count 3  )   ; 

norm. Wei ght CaD  :=  counts  ; 
end  ; 
end  ; 
clrscr  ; 

gotoxy  (  5,  2)  ; 

text  co lor  (  b 1 ue  )  ; 

write  (  '2.2  Collective  evaluation  mode  ')  ; 


gotoxy  (  3,  4  )  ; 
text co lor  (  black  )  ; 

write  (  '     choose  one  of  the  following  modes  :  ' 
gotoxy  (  10, 6)  ; 

write  (  '       <1>  each  group  member  will  evaluates 
alternatives' ) ; 
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gotoxy  (  10,7)  ; 

write  (  '  according  to  all  criteria.'  ) ; 

gotoxy  (  10,  8)  ; 

write  (  <£>  Each  group  member  will  evaluate  only 

alternatives' ) ; 
gotoxy  (  10,9)  ; 
write  ('  according  to  his  exclusive  area  of 

expert  ise.  '  )  ; 
gotoxy  (  8, 1 1 )  5 
write (    '     Enter  a  number  ?  '  )  ; 

Count3  :=  0  ; 

xl  :=  31  ;  yl  :=  11  ;  limit  :=  £  5 

checknumber  (  answer  ,  xl,yl, limit, count 3  )  ; 

if  answer  =  '1'  then 

norm. Special i zed  : =  false 
else 
beg  in 

norm. Spec i a  1 i zed  :=  true  ; 

a  :=  0  -, 

repeat 

gotoxy  (  S, 13)  ; 

clreol  5 

write  (  '     the  name  of  the  problem  ?  '  )  ; 

Read  (  answer  )  ; 

delete  (  answer  , S, length (answer )  )  ; 

pmame  :=  concat  (  answer  ,  '  .  Def '  )  ; 

norm,  normnamex  :=  pmame  ; 

Problernnamel  :=  answer  ; 

until  exist  (  pmame  )  ; 

readproblemf i le  ; 

for  a:=  1  to  problem. Levels   do 

beg  in 

gotoxy  (  IS,  14  +  a  )  ; 

write    (  '—  name  of  user  for  critiria 

'  ,  problem.  Level  1  La.1 ,  '   ?  '  )  ; 
error  :=  false  ; 
repeat 

gotoxy  (  54, 14  +  a  )  ; 

clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  <  answer  )  ; 

for  b  :=  1  to  norm. numof users  do 

begin 

if  answer  =  norm. usersnames Lbl     then 
.error  :=  true  ; 

end  ; 

unt  i 1  error  ; 
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Norm. Spec index Ca3  :=  answer  ; 
end  ; 
end  ; 
clrscr  ; 

gotoxy  (  5,  £)  ; 

write  (  '£.3  Automatic  selection  of  techniques  of  ' )  ; 

gotoxy  (  5,3)  ; 

write  (  '     aggregation  of  preference  (y/n) ' )  ; 

gotoxy  (  52, 3) ; 

write  (  ' ?   '  )  ; 

XI  : =  55  ;  y 1  : =  3  ; 

identify  (  answer  ,xi,yl  )  ; 

if  answer  =  '  y'  then 

norm. flgregat ion  :=  true 
else 
beg  in 

norm. flgregat ion  :=  false  ; 
a  :=  i3  ; 
gotoxy  (  9,  5)  ; 
•  write  (    '—  rl  :  sum  of  ranks  (y/n)'   )   ; 
gotoxy  (  5£, 5) ; 
write  (  ' ?   '  )  5 
XI  :=  55  ;  yl  :=  5  ; 
identify  (  answer  ,xl,yl  )  ; 
if  answer  =  ' y'  then 
begin 

a  :  =  a  +  1  ; 

norm,  flgregat  ionname  Call     :=    '  1'      ; 
end 
else 
beg  in 

a     :  =    a    +    1     ; 

norm,  flgregat  ionname  Call     :=    '  e'      ; 
end     ; 

gotoxy     (    9, 6)      ; 

write  ('-  r£  :  sum  of  outranking  relations  (y/r\)''      ) 
gotoxy  (  5£, 6) ; 
write  (  ' ?   '   )   ; 
XI  : =  55  ;  y 1  : =  £  ; 
identify  (  answer  ,xi,yl  )  ; 
if  answer  =  ' y'  then 
beg  in 

a  :  =  a  +  1  ; 

norm.  Agregat  ionname  Call  :=  '£'   ; 
end 
else 
begin 

a  :  =  a  +  1  ; 
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norm. Agregat ionnameCa]  :=  '  e'   ; 
end  ; 
gotoxy  (  9, 7)  ; 

write  ('-  r3  :  additive  ranking   (v/Vi)')  ; 

gotoxy  (  52, 7) ; 

write  (' ?   '  )  ; 

XI  :=  55  ;  yl  :=7  ; 

identify  (  answer  ,xl,yl  )  ; 

if  answer  =  ' y'  then 

begin 

a  :=  a  +  1  ; 

norm.  Agregat  ionnarne  Call     :=    '3'      ; 

end 

else 

beg  in 

a     :  =    a    +    1     ; 

norm. Agregat ionnameCa]  :  =  ' e'  ; 

and  ; 

gotoxy  (  9, 8)   ; 

write  ('—  r4  :  multiplicative  ranking   iy/n)'1      )  ; 

gotoxy  (  52, 8) ; 

write  (  ' ?   '  )  ; 

XI  :=  55  ;  yl  :=  8  ; 

if  answer  =  ' y'  then 

begin 

a  :  =  a  +  1  ; 

norm.  Agregat  ionnarne  Call     :=    '4'      ; 

end 

else 

beg  in 

a     :  =    a    +    1     ; 

norm.  Agregat  ionnarne  CaD  :=  '  e'  ; 

end  ; 
end  ; 

gotoxy  (  5,9)   ; 

write  (  '£.4  Automatic  computation  of  nai  (y/n)  '  ) 
gotoxy  (  52, 9) ; 
write  (' ?   '  )  ; 
XI  :=  55  ;  yl  :=  9  ; 
identify  (  answer  ,xl,yl  )  ; 
if  answer  =  ' y'  then 
norm. Nai  :=  true 
else 

norm. Nai  :=  false  ; 
clrscr  ; 
gotoxy (  2, 2)  ; 
text co lor  (  blue  )  ; 

write  (  '3.  Information  exchange    '  )  ; 
text co lor  (  black  )  ; 
gotoxy  (5, 4)  ; 


write  (  '3.1   Broadcasting  of  individual  outputs  (y/n) '  )  ; 

gotoxy  (  5£, 4) ; 

write  (  ' ?   '  )  ; 

XI  :=55  5  yl  :=  4  ; 

identify  (  answer  ,xl,yl  )  ; 

if  answer  —    ' y'  then 

norm. Broadcast ing  :=  true 
else 
beg  in 

norm. Broadcast ing  :=  false  ; 
end  ; 

gotoxy  (  5, 5)  ; 

write  (  ' 3. £  Permission  to  modify  individual  analyses  '  )  ; 
gotoxy  (  5,  S)  ; 

write  (  *      after  group  analyses  (y/ri)     '  )  ; 
gotoxy  (  5£, 6) ; 
write  ('  ?   '  )  ; 
identify  (  answer  ,xl,yl  )  ; 
if  answer  =  ' n'  then 

norm. Mod  i  f y  : =  fa  1 se 
else 
beg  in 

norm. Modify  :=  true  ; 

gotoxy  (  9, 7)  ; 

write  (  ' 3. £.  1   How  many  times  (max  10  )  '  )  ; 

gotoxy  (  52,  7)- ; 

write  ('  ?   '  )  ; 

Count  3  :  =  i3  ; 

checknumber  (  answer  ,  xl,yl, limit, count 3  )  ; 

norm. Mod i fyt imes  :=trunc(  count 3)  ; 

if  norm. Special i zed  then 

norm.  Mod  i  fyt  imes  :=  norm.  Modi  fyt  imes  *  norm.  Nurnof  users 
end  ; 

gotoxy  (  5,  S  )  ; 

write  (  '3.3  Time  limit  to  submit  individuals  results  :  '  ) 
gotoxy  (  3,  3)      ; 

write  (  '3.3.1   How  many  days  (max  14  )  '  )  5 
gotoxy  (  52, 9) ; 
write  (  ' ?   '   )  ; 
Count 3  : =  0  ; 

checknumber  (  answer  ,  xl,yl, limit, counts  )  5 
norm. Last t i me  :=  trunc(  count  3)  ; 
gotoxy  (  9, 10)  ; 

write  (  '3.3.2   Hours  (  1  :  iZiiZi  to  £4:00  )')  ; 
gotoxy  (  5£, 10) ; 
write  (' ?   '  )  ; 
Gotoxy  (  55, 10)  ; 
read  (  last hour  )  ; 
for  a  :=  £  to  norm. Nurnof users  do 
norm.  Usersids  Call  :=  '  X'   ; 
END  : 
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INCLUDE  FILE  STEPg-1 

PROCEDURE  NORMSELECTION  (  VAR  XI,  Yl  :  INTEGER  )  ; 

BEGIN 

gotoxy  (  x  1 , y 1 )  ; 

write  (  '  name  of  the  norm  ?  '  )  ; 

Repeat 

gotoxy  (  £3, y 1 )  ; 

clreol  ; 

read  (  answer  )  ; 

norm. Current name  :=  stupcase (answer)  ; 

normnarne     :=    concat     (    answer    ,     '  .  Gn'      )      ; 
until     (exist     (    normnarne    )     )      ; 

END     ; 

PROCEDURE  DISPLflYNORM  ; 

VftR 
messagel , messages  :  string C80D  ; 

BEGIN 

window  (  1,1,80,25)  ; 
text  background  (  blue  )  ; 
clrscr  ; 

text co lor  (white   )  ; 
readnormf i le  ; 
clrscr  ; 

gotoxy  (  £,  2.    )  ; 

write  (  'name  of  the  group  norm  :  ' , norm. Current name   ) 
gotoxy  (  £,  3  )  ; 

write  (  ' 1.  Identification  of  group  members   '  )  ; 
gotoxy  (5,4); 

write  (   '1.1   Number  of  group  members  :  , 
norm. Numof users)  ; 
for  a  :=  1  to  norm. Numof users  do 
beg  in 

gotoxy  (  9, 4+a  )  ; 

write     ('     -       name    of    member       #    '     ,     a    ,     '      :     '  , 
norm.  User snarnes Call     )     ; 
end     ; 

gotoxy     (    £,  9    )      ; 

write  (  '  £'.  Group  decision  techniques   '  )  ; 
gotoxy  (  5,  10  )  ; 
write  (  '  £'.  1  Weighted  majority  rule  '  )  ; 


a: 


gotoxy  (  9,  1  1 )  ; 

write  (  ' —   weights  of  members  :   '  ) 
for  a  :  =  1  to  norm. Numof users  do 
beg  in 

gotoxy  (  IE.'  ,   11  +  a  )  ; 
write        (       a, ' . 
norm.  Weight  C a 3  :  4  : 2.    )   ; 
end  ; 


'  ,  Norm.  Usersnames  La.1 , 


if  norm. special i zed   then 
beg  in 

message!  :=  '  Each  group  member  will  evaluate  only 
alternatives'   ; 


messaged   := 
expert  ise'  ; 
end 
else 
beg  in 

messagel   := 
alternatives'   ; 
messaged  := 
end  ; 


according   to   his   exclusive   area   of 


'    each    group    member    will   evaluate 
according  to  all  criteria'  ; 


gotoxy  (  5,  15)  ; 

write  (  '  £'.  £  Collective  evaluation  mode 

gotoxy  (  9, 16)  ; 

write  (  messagel  )  ; 

gotoxy  (  9, 17)  ; 

write  (  messages  )  ; 

if  norm. special i zed  then 
beg  in 

pmame  :=  norm,  norrnnamex  ; 

readproblemf i le  ; 

gotoxy ( 1 1,  IS)  ;  write  (  'Criteria'   )   ; 

gotoxy (35,  IS)  ;  write  (  '  user  name'  )  5 

for  a  :=  1  to  problem. levels   do 

beg  in 

gotoxy  (  1 1,  18  +  a  )  ; 

write   (  problem,  level  1 Ca3  )  ; 

gotoxy  (  35,  IS  +  a  )  ; 

write   (  norm. specindex Ca]  )  ; 

end  ; 
end  ; 

Text co lor  (  red  )  ; 
gotoxy  (  2, £5)  ; 

write  <  '  hit  any  key  to  continue   '  )  ; 
read  (  kbd  ,  ch  )  5 
clrscr  ; 

textcol or  (  white  )  ; 
gotoxy  (  5, 3  )  ; 
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write  (   '2.3  Selection  of  techniques  of  aggregation 

preference  :  ' )  ; 
if   norm. Agregat ion    then 
beg  in 

got ox y  (  £5, 3)  ; 
write  (  '  ri  r2  r3  r4  '  )  ; 
end 
else 
begin 

got ox y  (  60, 3)  ; 
for   a  :=  1  to  4  do 
beg  in 

case   norm.  Agregat  ionnarne  Call  of 
'  1 '  :  write  (  '  r 1  '  ) 


of 


'  2' 
'  3' 
'  4' 


write  (  ' r 
write  (  ' r 


) 

) 
write  (  ' r4  '  ) 


i 

"7       » 


end 
end  ; 

end  ; 


) 


gotoxy  (  5, 5)  ; 

write  (  '2.4  Automatic  computation  of  nai  : 

if    norm. Nai  then 

write  (  ' yes  '  ) 
else 

write  (  ' no  '  )  ; 
gotoxy (2,8)  ; 

write  (  '3.   Information  exchange    '   )   ; 
gotoxy  (  5, 9)  ; 

write  (  ' 3. 1  Broadcasting  of  individual  outputs  :  ' 
if  norm. Broadcast ing   then 

write  (  ' yes   '  ) 
else 

write  (  ' no  '   )   ; 
gotoxy  (  5, 10)  ; 

write  (  '3.2  Permission  to  modify  individual  ana lysi 
group  analysis  :  '   )  ; 
i  f  norm. Mod  i  f y   t  hen 
beg  in 

writeln   (  'yes  '  )  ; 


after 


wr  i  t  e  (  ' 


you  can    modify  the  output 


norm. Mod i fyt irnes, '  times  '  )  ; 
end 
else 

write  (  ' no  '  )  ; 
gotoxy  (  5,  12)  ; 

write  (  ^  3.  3    Time  limit  to  submit  individual  results 
gotoxy  (  9, 13  )  ; 

write  (   'date  :  '  ,  norm. Lastt ime  )  ; 
gotoxy  (  9, 14  )  ; 


:'  )  ; 
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write  (  'hour  :  '  ,  '22:30'  )  ; 

text co lor  (  red  )  ; 

got ox y  (  £, £5)  ; 

write  (  '  hit  any  key  to  continue   '  )  ; 

read  (  kbd  ,  ch  )  ; 

END  ; 

INCLUDE  FILE  5TEP3 


PROCEDURE  PRIORITYOFCRITERIPI  ; 

LABEL 

telosx,  telosx  1 ,  telosx£  ; 

VflR 

pruser i , f i lename£  :  name   5 
errorS  :  boolean  ; 

PROCEDURE  FINftLWEIGHTS  ; 

BEGIN 

for  a  :=  1   to   problem. Levels   do 
begin 

for  b  :=  1  to  problem. Sub level  1 Ca3   do 

beg  in 

vector£Ca,  b]  :=  vectorc'Ca,  b]  *  vector!  Call  ; 


for   c 
beg  in 
case 

1 


=  1  to 


pro b 1  em . S u b 1 eve  1 £  C a ,  b  J   do 


end  ; 
end  ; 
c  :=  1Z1 
end  ; 
b  :=  i3  ; 
end  ; 
END  ; 


a      of 

vector3Cb, cD  :=  vector3Cb,c3  *  vector£ Ca, b3 
vector4Cb, c]  :=  vect or4 Cb, c3  *   vect or£ Ha, b] 

vect or 5 [b, c J  :=  vect  orS  Cb,  cD  *  vectorc'Ca,  b] 
vector&Cb, cH  :=  vect or£ [b, cH  *   vect or £  Ha,  b 3 

vector7Cb,cJ  :=  vector7Cb,c]  *  vect  or£  la,  bll 
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PROCEDURE  FINfiLCRITERIfil  ; 
BEGIN 

n  Limo  f  cr  iteria  :=  1  ; 

selectcriteria  (  problem, vector 1 , vectors, vector 3, 

vector4, vectors, vectors,  vector7, 
norrnvect  or  1 ,  norrnvect  or£,  numof cr  i t er  i a   ) 

numof criteria  :=   <  nurnof criteria  -  1  )  ; 

sort  1     (    norrnvect  or  1     ,     norrnvect  ore.'    ,     nurnof  criteria    )      ; 
finalcr  iteria     <  norrnvect  or  1 ,  norrnvect  ore.',  numof  criteria       )      ; 


so 1 u t  i  on . N umo f cr  i  t  er  i  a 
so  1  ut  i on.  Norrnvect  orS 
so 1 ut  i  on. Norrnvect  or 1 


=    n  umo  f cr  iteria     ; 
=    norrnvect orS     ; 
~    norrnvect  or  1        : 


sol ut ion. Username         :=  namex  ; 
if  (  not  norm. speci al i zed  )  Then 
beg  in 

if  (  not  exist (  pruser  )  )   then 
beg  in 

solut ion. Ah p. Stat  us      :=  false  ; 
sol ut ion. Elect re. Stat  us  :=  false  ; 
so  1  u  t  i  on .  Ah  p .  N  umo  ft  r  i  es  :  =  iZi  ; 
so  1  ut  i  on .  Elect  re .  N  umo  ft  r  i  es  :  =  0  ; 
opensol ut ionf i le  (  pruser  )  ; 
end  ; 

wr i tesol ut ionf i le  ; 
end  ; 
END  ; 


BEGIN  (*  main  *) 

string 128  :=  'step  3 : prior it i zat ion  of  evaluation 

criteria' ; 
diskstatus  ; 
stringl£9  :=  'identification  of  the  problem  methods 

ahp  or  d  irect '  ; 
data  ; 

wr  i  t  enor  rn  file  ; 
read5  ; 

readproblemf i le  ; 
clrscr  ; 

if  norm. Special i zed    then 
beg  in 

if  (  not  exist (  pruser3  )  )   then 

begin 

errorS  :=  false  ; 
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■for*  a  :  =  1  to  3  do 

begin 

specf ile£. solvedCfl]       :=  false 
specfi  lee.  Final  index  Call  :  =  false 

end  ; 

specf i le£. completed      :  =  False  ; 

specf i le£. Comp let edal 1   :=  false  ; 

openspecfile  (  pruser3  )  ; 

wr i tespecf i le  ; 
end 
else 

error5  :=  true  ; 
readspecfile  ; 
vect or  1 
vector£ 
vect or 3 
vect or 4 
vectors 
vectors 
vect or7 


=  specf i leS. vector  1 
=  specf i le£. vect or £ 
=  specf  i  le£.  vector 3 
=  specf i le2. vector4 
=  specf i le£. vect or5 
=  specfi  lee!,  vect  or  £ 
=  specf  i  le£.  vect  or-7 


b  :=  a  ; 
repeat 

b  :=  b  +  l  ; 
until  (  namex  =  norm,  usersnarnes  CbJ  )  ; 
specf i le£. solved Cb3  :=  true  ; 
end  ; 

If  methodx  =  ' ahp'   then 

evaluate  ( problem. Level  1 ,  problem. Levels, vect or 1  ) 
else 

di recti  ( problem. Level  1 ,  problem. Levels, vector 1  )  ; 
clrscr  ; 

if   (  (  norm. special i zed  )  And  (  errorS)  )  then 
beg  in 

for   a  :=  1  to  problem. levels  Do 

vector 1  Call  :=  (  vector  1 Ca]  +  specf i le£. vector  1 Ca3  )/£; 
end  ; 

for   mall  :=1  to  problem. Levels  do 
beg  in 

if  norm. Special i zed  then 
beg  in 

if  norm. Specindex Cmal 1 1      <>   namex   then 
goto  telosx  ; 
end  ; 

for   ma 12   :=  1  to  problem. Sub  level  1 Cmal 1 1       do 
beg  in 

vectortan Cmal£H  :=  vect or£ Cmal 1 , ma 1£D  ; 
arrayS Cmal£3      :=  problem. Levels Cmal 1 , mal£3  ; 
end  ; 
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if  met hod x  =  'ahp'   then 

evaluate  (arrayS,  problem.  Sub  level  1  Crnal  ID  ,  vectortan) 
else 

direct  1  (array-2,  problem.  Sub  level  1  Crnal  11 ,  vectortan  )  ; 
ma  1  c.'  :  =  0  ; 

for  male:  :=  1   to   problem.  Sublevel  1  Crnal  1 1     do 
beg  in 

if  norm. Special i zed  then 
begin 

if  norm.  Specindex  Crnal  1 1     <>   narnex   then 

goto  telosx  ; 
end  ; 

vector£  Crnal  1 ,  malSH     :=    vectortan  Crnal  21     ; 
end     ; 

rna  12     :  =    iZi    ; 
telosx : 
end     ; 

clrscr     ; 

for  si  :=  1  to  problem. Levels  do 
beg  in 

if  norm. Special i zed  then 

beg  in 

if  norm.  Specindex  Csl  1      <>   narnex   then 
goto  telosx 1  ; 
end  ; 

for  s£  :=  1  to  problem.  Sublevel  1  Csl  I!    do 
beg  in 

for  s3  :=  1  to  problem.  Sub  level  £  Csl ,  si'D   do 
beg  in 

case     si      of 
1 :  beg  in 

array£Cs33       :=   problem.  Level3 Cs£, s33 
vect ort an Cs3]  :=   vect or3 Cs2, s33  ; 
end  ; 
£:  begin 

array£  Cs33      ;-   problem.  Level4  Cs£,  s3H 
vectort  anCs3D  :=   vect  or4  Cs£,  s3j  5 
end  ; 
3:  begin 

array£Cs3D       :=   problem. Levels Cs£,  s3D 
vectortan Cs33  : =   vectors Cs£, s33  ; 
end  ; 
4:  begin 

ar r ay c.'Cs3D      :=   problem.  LevelS  Cs2,  s3D 
vectortanCsSH  :=   vectors Cs£, s3]  ; 
end  ; 
5:  begin 
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array£Cs33       :=   problem. Level7 Cs£,  sSU   ; 
vectortanCs3]  :=   vector7Cs£, s3]  ; 
end  ; 
end  ; 
end  ; 
s3  :=  0  ; 
if  rnethodx  =  '  ahp'   then 

evaluate (array£, problem. Sub 1 eve 12 Csl , s£3, vectort an) 
else 

direct  1 (array£,  problem.  Sub 1 eve IS Csl ,  s£D  ,  vectort an)  ; 
clrscr  ; 

for  s3  :=  1  to  problem. Sublevel£ Csl , s£3   do 


begin 

if  norm. Special i zed  then 
beg  in 

if  norm. Spec index Csl 1      <> 
goto  telosx  ; 
end  5 


namex   then 


case  si  of 

1  :  vectors Cs£, s3D 

£  :  vector4 Cs£, s33 

3  :  vectorS Cs£, s3D 

4  :  vectors Cs£, s33 

5  :  vect or7 Cs£, s33 
end  ; 

end  ; 
end  ; 

s£  :=  iZi  ; 
telosx 1 : 
end  ; 

if  (  not  norm. Special i zed  ) 
beg  in 

final  weights  ; 

f i nalcr iter ial  ; 
end 
else 
beg  in 

specf i le£. vectorl 

specf  i  le£.  vector£ 

specf ile£. vectors 

specf i le£. vector 4 

specf i le£. veetorS 

specf i le£. vector6 

specf i le£. vector7 

writespecf i le  ; 
end  ; 


=  vectort an Cs3 3 

=  vectort an Cs3D 

=  vectort an Cs33 

=  vectort an Cs3] 

=  vectort an Cs3D 


then 


vectc 

rl  ; 

vectc 

r£  5 

vect  c 

r3     ; 

vectc 

r4  ; 

vectc 

r5  ; 

vectc 

r&  ; 

vectc 

r7  ; 
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if  norm. special i zed  then 
beg  in 

readspecf i le  ; 
rnal  1  :  =  0  ; 
for  a  :=1  to  3  do 
beg  in 

if  specf  i  le£.  sol ved  Call  then 
ma 11  : =  mall  +  1  ; 
end  ; 


if  mail  =  norm. numof users   then 
beg  in 

vector 1  :=  specf i le£. vector 1  ; 

vect or £  :=  specf i 1 e£. vectors  ; 


=  specf i le£. vectors 
=  specf i le£. vector4 
=  specf i le£. vectors 
=  specf i le£. vectors 
=  specf i le£.  vector 7 


=  true  ; 

=  normvect or 1  ; 

=  normvect or£  ; 


vector3 

vect or4 

vectorS 

vectors 

vect or 7 

finalweights  5 

f inalcr i t er ial  ; 

specf i le£. completed 

specf i le£. normvect or 1 

specf i le£. normvect or£ 

for  a  :=  1  to  numof criteria  do 

beg  in 

for  mall  :=  1  to  problem. levels  do 
beg  in 

if   problem,  level  1  [rnal  ID  =  normvect  or  1  Call  then 
begin 

specf  i  le£.  norm  index  Ls.1     :=  norm,  spec  index  Crnal  1  3  ; 
goto  telosx£  ; 
end  ; 
end  ; 

for  mall  :=  1  to  problem. levels  do 
beg  in 

For  mal£  :=  1   to   problem. sublevel 1 CMal 1 ]  do 
beg  in 
if  problem,  level  £  Crnal  1 ,  rnal£D  =  normvect  or  1  CaU  Then 
beg  in 
specf  i  le£.  normindex  Call  :=   norm,  specindex  Crnal  i  1     ; 
goto  telosx£  ; 
end  ; 
end  ; 
end  ; 

For  si  :=  1  to  problem. Levels  do 
begin 

for  s£  :=  1  to  problem. Sub level  1 Csl 1  do 

beg  in 
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for  s3  :=  1  to  problem. SublevelSCsl, s£]   do 
beg  in 

case     si      of 
1 :  beg  in 

if    problem,  level  3 CsS, s33  =  norrnvect  or  1  Call 
Then  begin 
specf  i  le£.  normindex  Call  :  =norrn.  spec  index  CSi 1  ; 
goto  telosxS  ; 
end  ; 
end  ; 
£:  begin 

if    problem. Ievel4 CsS, s3J  =  normvect or  1  Call 
then  begin 
specf  i  leS.  norm  index  Call  :  =norm.  spec  index  CS1  ]  ; 
goto  telosxS  5 
end  ; 
end  ; 
3:  begin 

if  problem.  leveI5Cs3D  =  norrnvector  1  Ca3  then 
beg  in 

specf  i  leS.  norm  index  Call  :  =norm.  spec  index  C31 1  ; 
goto  telosxS  ; 
end  ; 
end  ; 
4:  begin 

if  problem. levels CsS, s3D  =  norrnvector  1  Call 
then  begin 
specf i leS. norm index  CaD  : =  norm. spec index  CSi  3  ; 
goto  telosxS  ; 
end  ; 
end  ; 
5:  begin 

if  problem,  level  7  CsS,  s33=normvect  or  1  Call  then 
beg  in 

specf  i  leS.  norm  index  Call  :  =norm.  spec  index  CSI  1  : 
goto  telosxS  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
telosxS : 
end  ; 

specf i leS. numof criteria  :=  numof criteria  ; 

specf ileS.  numof  alt  ernat  ives  :=  problem,  numof  al  t  emat  i  ves  ; 
specf i leS. alt ernat ives  :=  problem,  alt  ernat  ives  ; 
wr itespecf i le  ; 
end 
end 
END 


94 


INCLUDE  FILE  5TEP3-1 

OVERLAY  PROCEDURE  EVALUATE  (var  arrayS: t it le; var  w  : integer; 

va.r       vectortan  :   vectors  1  )  5 

LABEL 

ert 1 , ert3  ; 
CONST 

count  =  3  : 


VAR 


a3,  b3,  c3,  d3,  h3,  k3,  f3,  p3,  1,  al,  bl, 

levelsl,  i, count  1,  istogram  :  integer  ; 

row,  row  1,  1  arnda,  ci  ,  r  i  ,  cr, 

score,  answer3,  integer 1  :  real  ; 

array5,  vector base, exchanges  :  vectors 1  ; 

st  :  string  LSI     ; 

ch  :  char; 

1  arnda  1 ,  vectorE'  :  array  CI..  503  of  real  ; 

exchange4  :  array C 1 .. 203  of  name  ; 

mat  ri  x2,  result ,  rnatri  x3  :  array  Ci.  .  £0,  1.  .  203  of  real 

answer4  :  name  : 


PROCEDURE  INFO  ; 
BEGIN 

window  (1,13,30,23  ); 

text  bac k  g r o und (14)  ; 

textcolor(  red  )  ; 

got oxy (1,6)  ; 

writeln  (   ' "note  :  be  as  accurate  as  possible  —  any  # 

greater  than  1  e. g,  2. 45  ' )  ; 
Writeln  (  '  a  possible  scale  for  inexact  is  :  '  )  : 
writeln  (  '  3  =  weakly  important  than  ,         5  =  strongly 

more  import  an  than  '  )  ; 
writeln  (   '  7  =  very    strongly  more  imp. than   9  = 
absolutely  more  imp.  than' ) ; 
END  ; 
BEGIN  <*  main  *> 

window  (  1,1, 50, 12  )  ; 
text  background ( blue)  ; 
clrscr ; 


window  (Si, 1, 80, 12) ; 

text  background  (white  )  ; 

clrscr  ; 

window  ( 1 , 13, 80, £3  ) ; 

text  background ( 14)  ; 
clrscr  ; 

window  (1,£4,80,  £5  ); 

text  background (white)  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy (  2,1)  ; 

write  ('step  3  : prior it i sat  ion  of  evaluation  criteria  ')  ; 

gotoxy (  £,  £)  ; 

write  (  'method  :  ahp  ' )  ; 
level  si  :  =  w  ; 
if  level  si  <>  0   then 
beg  in 

window  (  1,  1,50,  IS  )  ; 

text  background (bl ue)  ; 

clrscr; 

window  (51,1,80,21); 

text  background  (  white  )  ; 

clrscr  ; 

window  (1,13, 80, £3  ); 
text  background ( 14)  ; 
clrscr  ; 

if    w  =  1  then 

vect ort an Cw 3  :=   1  ; 
if   w  =  £  then 
beg  in 

window  (  1,  1,50,  12  )   ; 

text  background (blue)  ; 

text co lor  (  white  )  ; 

vector base  :=   vector tan  ; 

levelsl  :=  w  ; 

gotoxy  (  1,1)  ; 

write  ('  pairwise  comparison  ')  ; 

gotoxy  (  10,3  )  ; 

for   al  :  =  1  to  levelsl  do 

write  (  copy (  array£  Cal  II  ,  1 ,  5)  ,  '     '  )  ; 
for  al  :=  1  to  levelsl  do 
beg  in 

gotoxy  (£  , 3+al  ) ; 

write  (copy(  array£Cal ] , 1 , 5)  )  ; 
end  ; 
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window     (51,1,30,21); 

text  background     (white    )      ; 

textcolor(    1Z1    )      ; 

gotoxy     (1,1)      ; 

write  (  '    priority  vector  '  )  ; 

for  al  :=  1  to  level si  do 

beg  in 

gotoxy  (  £  ,3  +al  )  ; 

write  (copy(  array£ Cal 2 ,  1 ,  16)  )  ; 
end  ; 

for  a  :=  1  to   level  si   do 
beg  in 

gotoxy  (£0,  3  +  a  )  ; 

write  (  chr  (  179  )  )  ; 
end  ; 
for  a  :=  1  to   level si   do 

begin 

gotoxy (£7, 3  +  a  )  ; 

write  (  chr  (  179  )  )   ; 
end  ; 

window  (1,13, 80, £3  ); 

text  background ( 14)  ; 

clrscr  ; 

textcolor(  black  )  ; 

gotoxy (  £, £) ; 

write  (  '  is  '  ,array£Cl],  '  more  important  than   '  , 

array£  IZ£I!     ,     '      (y/n)        ?    '      )      ; 
Repeat 

gotoxy  (  75, £  )  ; 
clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
until  (  (  answer  =  ' y'  )  or  (  answer  =  ' n'  )  )   ; 
if  answer  =  ' y'  then 
beg  in 

gotoxy  (£,3)  ; 

write  (  'how  many  times  is   ' , array£ C 1 3 , '  more 

important  than      ' , array£ C£] , '    ? 
Gotoxy  (  £,4)  ; 

write  (  ' (  see  note  below  )  '  )  ; 
info  ; 

text  co  lor  (  black.  )  ; 
repeat 

gotoxy (75, 3) ; 
c 1 reo 1  ; 

read  (  answer  )  ; 
val  (  answer, answer3, code  )  ; 
unt  i 1   (   (  code  =  0  )  and  (  answer 3  >  0  )  )  ; 
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4:£  ) 


veetortanClD  :=  ((10 

vectortar.C£:  :=  (  10 

window  (  1,1,50,  1£  ) 

text  background (blue)  ; 

text co lor  (  white  )  ; 

gotoxy   (  13,  4  )    ; 

write  (  answer3:4:£) 

gotoxy (   10,5); 

write  ( (1  /  answer 3) : 
end 
else 

if  answer  =  ' n'  then 
beg  in 

gotoxy  (£,3)  ; 

write  (  'how  many  times  is 
important  than  ' , array£C13, ' 

gotoxy  (  £, 4)   ; 

write  (  ' (  See  note  below  '  ) 


/  (answer 3  +1))  *  answer3)/10  ; 
/  (  answer3  +  1  )  )  /  10  : 


'  ,  array£ C£H , ' 

?   '  )  : 


more 


info  ; 

text co lor  (  black  )  ; 

repeat 

gotoxy (75, 3) ; 

clreol  ; 

read  (  answer  )  ; 

val  (  answer, answer3, code  )  ; 
unt  i 1  code  =  0  ; 

vect ort an C£3  :=  ((10  /(answers  + 
vectortanCID  :=  (  10  /  (  answers 


1)  )  *  answers  )/10; 
+1   ) )  /  10  ; 


:4 


window  (  1,1,50,  1£  )  ; 

text  background ( bl ue)  ; 

text co lor  (  white  )  ; 

gotoxy   (  10, 5) ; 

write  ((1/  answerS) : 4 :£) 

gotoxy (   18,4) 

write  (  answer 
end  ; 

window  (51, 1, 80, £1 ) 
text  background  (  white  ) 
textcolor(  black  ) 
for  al  :=  1  to  level  si   do 
beg  in 

gotoxy (££, al+3)  ; 

write  (   (  vect ortan Cal 3 ) 
end  : 


window  (1,1 3, 80, £3  ); 
text  background ( 14)  ; 
clrscr  ; 
text co lor  (  black  )  : 


98 


for  al  :=  1  to  £   do 

begin 

gotoxy  ((    (5*   al)),9   )  ; 

write  (copy(  array S Cal 3 , 1 , 3)  )   ; 
end  ; 

for  al  :=  1  to  £   do 
beg  in 

gotoxy  ((   (5*   al)),i0   )  ; 

write  (  (vectortanCal] ) :3:2  )  ; 
end  ; 

text  background  (  green  )  ; 
for  al  :=  1  to  £   do 
beg  in 

gotoxy  (  (  5  *  al  ) , 3  )   ; 

write  (  '    '  )  ; 
end  ; 

for  al  :=  1  to   £  do 
beg  in 

gotoxy  (  C5+(5*al>),9)  ; 

i f (round (vectortanCal ]  *  H3  )  >  7  )  then 

istograrn  :=  7 
else 

istograrn  :=  (   round  (  vectortanCal]  *  10  )  )  $ 
for  bl  :=  1  to   istograrn    do 
beg  in 

gotoxy  (  (  (  5  *  al  ))  , (9  -bl)  )  ; 
write  (  '     ' )  ; 
end  ; 
end  ; 

text  background  (  14  )  ; 
text co lor  (  black  )  ; 

gotoxy  (  2,  1 1  )  ; 

write  (  'hit  any    key  to  continue  '  )  ; 
read  (  kbd  ,  ch  )  ; 
end  ; 

if    w  >  cl       then 
beg  in 

for  a3     :=  1  to  5  do 

mat r i x£ Ca3, a33  :=  1  ; 

window  (  1,1,50,  IS  )  ; 

text  background ( bl ue)  ; 

text co lor  (white  )  ; 

vector base  :=   vectortan  ; 

levelsl  :=  w  ; 

gotoxy  (  1,1)  ; 

write  ('  pairwise  comparison  ' )  ; 

gotoxy  (  10,  3  )  ; 
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for   al  :=  1  to  level si  do 

write  (  copy (  array£ Cal 1 , 1 , 5)  ,  '     '  )  ; 
for  al  :=  1  to  levelsl  do 
beg  in 

gotoxy  (2  , 3+al  )  ; 

write  (copy  (  array£ Cal 3  ,  1 ,  5)  )   ; 
end  ; 

window  (51, 1, 80, £1) ; 

text  background  (  white  )  ; 

textcolor(  0  )  ; 

gotoxy  (1,1)  ; 

write  (  '    priority  vector  '  )  ; 

for  al  :=  1  to  levelsl  do 

begin 

gotoxy  (2,3  +al  )  ; 

write  (copy (  array£Cal], 1, 13)  )   5 
end  ; 

for  a  :  =  1  to   levelsl   do 
beg  in 

got oxy (£0, 3  +  a  )  ; 

write  (  chr  (  173  )  )   ; 
end  ; 

for  a  :=  1  to   levelsl   do 
begin 

gotoxy (£7, 3  +  a  )  ; 

write  (  chr.  (  173  )  )  ; 
end  ; 

info  ; 

text co lor  (  0  )  ; 

for   a  :=  1  to  (   levelsl  -  1  )   do 

beg  in 

criterial  : =  arraySCa]  ; 

for  b  :=  1  to  (  levelsl  -  a  )    do 

beg  in 

criteria£  :=  array£ Ca+bJ  ; 

repeat 

gotoxy (  1 , £  )  ; 

write  ('is  ', criterial, ' more  important  than  ', 

criteria£  ,  '  {,y/n)     ?  '  )  ; 
Gotoxy  (  77,  £  )   ; 
clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
c 1 reo 1  ; 
until   ((answer  =  ' y' )  or  (  answer  =  ' n'  )  )  ; 
if  answer  =  ' y'  then 
beg  in 
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gotoxy.  (  1,3  )  ; 

write  (  'how  many  times  is  ' , cr i ter ial : 5, '  more 
important  than   ',  criteria2:5  ,'?  '); 
gotoxy  (  1,4)  ; 

write  (   '    (  See  note  below  )  '  )  ; 
repeat 

gotoxy (  77  ,  3 

clreol  ; 

read  (  answer 

val   (  answer 
ant  i 1  ( (  code  = 
matrix2Ca, a+b] 
matrix£Ca+b, a3 
rnatrix2Ca,  a] 


answers 
)  and  ( 
answer3 
(  1  / 
1  ; 


,  code  )   ; 
answers  >  0  )  ) 


answers  ) 


window  (  1,1, 50, 12  )  ; 

text  background (bl ae)  ; 

text co lor  (  white  )  ; 

gotoxy   (  (  2  +(  (a+b 

write  (  answers : 4:2)  ; 

gotoxy (   2  +  (a  *  a  ) 

write 
end  ; 

i  f  answer  = 
beg  in 

gotoxy  (  1 ,  S  )  ; 


)  *  a  )  ) 


( 


( (1  /  answerS) :4:2 
" n'  then 


b  )  )  )  ; 


write  (   '   he 

w 

many  times  is  ' , cr i t er ia2, '  more 

important 

than  ',  criterial:5  ,'?  '); 

gotoxy  (  1,4) 

5 

wr  i  t  e  (   '    ( 

See 

note  below  ) '  )  ; 

repeat 

gotoxy (  75  , 

^j 

) 

? 

clreol  ; 

read  (  answer 

) 

5 

val   (  answer 

i 

answers  ,  code  )  ; 

unt i 1  < (  code 

= 

i3 

)  and  (  answerS  >  2i  )  )  ; 

matr i x2  Ca, a+bJ 

= 

( 1/  answerS)  ; 

rnatri  x2Ca+b,  aD 

= 

answerS   ; 

mat r i  x2  Ca, a3 

:  = 

i  ; 

wi  ndow  (  1,1, 50,  12  )  ; 
text  background (bl ue)  ; 
text co lor  (  white  ) 
gotoxy  (  (  2  +  (  (a 
write  ((1/  answerS) 
gotoxy (  2  +  (a  *  3 
write  (  answerS: 4:2 
end  : 


i 

+  b    ) 

4:2) 


( 


a  ) ) 

+  <    a 


a 


b    )     ) 


window     (1,13,80,23    ); 
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text  background ( 14)  ; 
text co lor  (  black  )  ; 
got ox y  (1,2  )  ; 
clreol  ; 
gotoxy  (1,3  )  ; 
clreol  ; 
gotoxy  (1,4  )  ; 
clreol  ; 
end  ; 
end  ; 

rnatri  x£  C  levelsl ,  levelsl  ]  :=  1  ; 
ert  1  : 

rnatrix3  :=  rnatrixS  ; 

for  3^3     :=  1  to   count   do 

beg  in 

for  b3  :=  1   to  level  si  do 
beg  in 

for  c3  :=  1  to  level  si  do 

array5Cc3]  :=  matr  i  x£  Cb3,  a.31     ; 

for  h3  :=  1  to  level  si  do 
beg  in 

score  :  =   i3  ; 
for  k3  :=  1  to  level  si  do 
beg  in 

integerl  :=  array5Ck33  *   mat r i x2 Ck3, h3D  ; 

score  : =  score  +  integerl  ; 

end  ; 

result  Cb3, h3H  :=  score  ; 
end  ; 
end  ; 

rnatrixS  :=  result  ; 
end  ; 
result  :=  rnatrixS  ; 

for  p3  :=  1   to  level  si   do 
begin 

row  :  =  i3  ; 

for  f3  :=  1   to   levelsl   do 

row  :=  row  +  resul t Cp3, f 31     ; 
vector base Cp3 1     :=  row  ; 
end  ; 

rowl  : =  0  ; 
for  p3  :=  1  to   levelsl   do 

rowl  :=  rowl  +  vector base Cp3]  ; 
for  p3  :=  1  to   levelsl  do 

vector base Cp3]  :=  vector base Cp33  /  rowl  5 
window  (51,1,80,21); 
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text  background  (  white  )  ; 
for  al  :=  1  to  levelsl  do 
beg  in 

gotoxy <££, a 1+3)  ; 

write  (  vectorbaseCal 1 : 5 : 3  )   ; 
end  ; 

window  (  1,13, 80, £4  )  ; 
text  background ( 14)  ; 

integerl  :=  0  ; 

for  al  :  =  1  to  levelsl  do 

beg  in 

score  : =  0  : 

for   bl  :=  1  to  levelsl  do 

beg  in 

integerl  :=  rnatri  x3  Cal ,  bl  3  *  vectorbaseCbi]  ; 
score  :=  score  +  integerl  5 

end  ; 

larndalCalU     :=    score     ; 
end     ; 

integerl  :=  0  ; 
for  al  :=  1  to   levelsl  do 
begin 

vectors  Cal  1     :=  larndal  Cal  D  /  vectorbaseCal]  ; 

integerl  :=   integerl  +  vect or£ Cal 3  ; 
end  ; 

larnda  :=  (  integerl  /  levelsl  )  ; 
if    levelsl   =  1    then 
levelsl  : =£  ; 


ci  :  = 

>  ( lame 

ia  • 

-  ] 

evelsl )  /  ( lev 

case 

leve: 

.si 

of 

1  : 

r  i  : 

=s 

0. 

00000000001   ; 

2: 

Ri  : 

S3 

0. 

00000000001   ; 

3: 

Ri  . 

= 

0. 

58   ; 

4: 

Ri 

= 

0. 

90   ;  • 

5: 

Ri 

=3 

1. 

12   ; 

6: 

Ri  ! 

:  = 

1. 

£4   ; 

7: 

Ri 

;  = 

1. 

3£   ; 

8: 

Ri 

:  = 

1. 

41   ; 

9: 

Ri 

■  = 

1. 

45   ; 

10: 

Ri 

:  = 

1. 

49   ; 

11  : 

Ri 

:  = 

1. 

51   ; 

12: 

Ri 

J  3S 

1. 

48   ; 

13: 

Ri 

:  = 

1. 

56   ; 

14: 

Ri 

:  = 

1. 

57   ; 

15: 

Ri 

:  = 

1. 

59   ; 

end  ; 
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cr     :=  ci  /  ri  ; 

window  (1,13,30,23  ); 
text  background ( 14)  5 
clrscr  ; 
vectortan  :=  vector base  ; 

repeat 

count  1  :  =  1Z1  ; 

for  a  :=  1  to  (  level  si  -  1  )   do 

beg  in 

if  vectorbase Ca3  <  vectorbase Ca+1 1       then 
beg  in 

exchange3  Lai     :=    vectorbase  Call  ; 
vectorbase  Cal!  :=  vectorbase Ca+1 1     ; 
vectorbase  Ca+1 1     :=  exchanges  Call  ; 
exchange4Ca]  :=  array£Ca]  ; 
array2CaH  :=  array2Ca+lD  ; 
array2Ca+ 1j  :  =  exchange4  Cal!  ; 
count  1  :=  count  1  +  1  ; 
end  ; 
end  ; 
unt  i  1   count  1  =  1Z1  5 

for  al  :=  1  to  level si  do 
beg  in 

gotoxy  ((   (5*   al)),9   ); 

write  (copy(  array£ Cal 1 , 1 , 3)  )  5 
end  ; 

for  al  :=  1  to  level si  do 
begin 

gotoxy  ((   (5*   al  ) )  ,  10   ); 

write  (vectorbase Cal 1 : 3 : 2)  ; 
end  ; 

text  background  (  green  )  ; 
for  al  :=  1  tolevelsl  do 
beg  in 

gotoxy  (  (  5  *  al  )  ,  8  >  5 

write  (  '     '  )  ; 
end  ; 

for  al  :=  1  to  problem. Levels  do 
begin 

gotoxy  (  (5+  (  5*al  ))  ,9  )  ; 

if    (   round  (  vectortan Cal 1     *  10  )  >  7  )  then 

istograrn  :=  7 
else 

istograrn  :=  (   round  (  vectortan  Cal  1     *  10  )  )  ; 
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for  bl  :=  1  to   istograrn    do 
beg  in 

gotoxy  (  (  (  5  *  al  ))  , (9  -bl)  )  ; 

write  (  '     ' )  ; 
end  ; 
end  ; 

text  background  (  14  )  ; 

t  e  x  t  co 1 or  (  blue  )  ; 

gotoxy  (  36, 1 )  ; 

write     (     '  **    larnda    max  =    »  ,     larnda:4:2    )     ; 

gotoxy (    36, £    ) ; 

write  (  '    consistency  index   =  ',  ci:4:£  )  ; 

gotoxy (36, 3) ; 

write  (  '    randomized  index    =  ',  ri:4:£  )  ; 

gotoxy  (36, 4)  ; 

write  (  '     consistency  ratio   =  ' ,  cr:4:£  )   ; 

gotoxy  (36, 6)  ; 

write  (***  there  is  some  statistical1)  ; 

gotoxy (  36, 7)  ; 

write  (  '     inconsistency  in  your  evaluation.' ) ; 

Gotoxy (36, 8) ; 

write  ('     (study  highlighted  values  for  ' )  ; 

gotoxy (36, 3) ; 

write  ('     probable  inconsistent  evaluation)')  ; 

text co lor  (  black  )  ; 

for  p3  :=  1  to  level si  do 
beg  in 

for  f3  :=  1  to  level  si  do 
beg  in 

result  Cp3,  f3H   :=  £i  ; 
matr  ix2  Cp3,  f33   :=  i3  ; 
end 
end  ; 

gotoxy  (£, 11) ; 

textcolor  (  blue  )  ; 

writeCdo  you  want  to  modify  the  evaluation  of  the 

criteria  (y/n) ?  ' )  ; 
Textcolor  (  black); 
repeat 

gotoxy (  65, 11)  ; 

c 1 reo 1  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
until   (  (  answer  =  ' y' )  or  (  answer  =  ' n'  )  )  ; 
window  (1, 13,80,23  ) ; 
text  background ( 14)  ; 
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if  answer  =  '  y'  then 
begin 

clrscr  ; 

error  : =  false  ; 

repeat 

gotoxy  (  E, E)  ; 

clreol  ; 

write  (  'name  of  the  first  criteria    ? 

Read  (  answer  )  ; 

answer  :=   copy (answer, 1 , 4)  ; 

answer  :=  stupcase  (  answer  )  ; 

for  al:  =  l  to  level  si  do 

beg  in 

answer4  :=  copy  (  arrayE Cal J ,  1,4)  ; 
if  (  answer4  =  answer  )  then 
error  :=  true; 
end  ; 
Lint  i  1   error  ; 
a  :=  i3  ; 
repeat 

a  :=  a  +1  ; 

answer4  :=  copy  (  arrayE  Call ,  1 ,  4) 
unt  i 1   (   answer  =  answer4  )  ; 
criterial  :=  arrayc'Ca]  ; 
ert3 : 

error  :=  false  ; 
repeat 

gotoxy  (  £,3)  ; 

clreol  ; 

write  (  'name  of  the  second  criteria   ? 

Read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

answer  :=   copy (answer, 1,4)  ; 

for  bl  :=  1  to  level  si  do 

beg  in 

answer 4  :=  copy  (  arrayE'  Cbl  1 ,  1,4)  ; 
if    (  answer4  =  answer  )   then 
error  :=  true; 
end  ; 


unt  i 1   error   ; 

answer 4  :=  copy  (  criterial, 1,4)  ; 
if    (   answer  =  answer4  )   then 
goto  ert3  ; 

b  :=  0  ; 
repeat 

b  :=  b  +1  ; 

answer4  :=  copy  (  arrayE Lbl ,  1 ,  4) 
unt  i 1     (  answer4  =  answer  )  ; 
criteriaE  :=  arrayE CbH  ; 
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window  (  1,1,50,  12  )  ; 

text  background ( bl ue)  ; 
matrixc  :=  rnatrix3  ; 
text co lor  (  red  +  IS  ) 
got ox y   (  (  2  +(  b  *  8 
write  (  matrix2  [a,  bll  :  4 


i 
2  ) 


H- 


textcolor  (  black  ) 


) ; 
? 


window  (1,13,813,23 
text  background (14) 
clrscr  ; 
repeat 

got  ox y  (  1 ,  £'  )  ; 

wr  i  t  e  (   '    is', or i  t  er  i  a 1  , 
cr iteria2  ,  '  (y/n) 


more  important  than 
?    '   ) 


) 


answer  )   ; 
:=  stupcase 


(  answer  =  ' y' ) 
=  ' y'  then 


See 


Got ox y 

clreol 

read  ( 

answer 

c 1 reo 1 
unt  i 1   ( 
if  answer 
beg  in 

got  ox y  (  1,3  )  ; 

write  (       how 
important  than 

got oxy  (  1,4)  ; 

wr  i  t  e  (   '    ( 

info  ; 

repeat 

got oxy  (  75  , 3 
c 1 reo 1  ; 
read  (  answer 
val   (  answer 

unt  i 1  (  (   code 

matr i x2Ca, b]  : = 

matr  i  x2  Cb,  all  :  = 

matr  i  x2  Ca, a] 

window  (  1,1,50,12  )  ; 

text  background ( bl ue)  ; 

text co lor  (  white  )  ; 


(  answer 


or  (  answer  =  ' n'  ) 


many  t  imes 
' , criteria2 

note  below 


is 

7 


' , cr i ter ial , 
'  ?   '  )  : 


more 


)  ; 

>  ; 

,  answer3  , 

code  ) 

=  iZi  )  and  ( 

answer 

answer3  ; 

(  1  /  answer3  ) 

=  1  ; 

>  iZi  ) 


got oxy   (  (  2  +(  b  *  8  )  )  ,  v 
write  (  answer3:4:2)  ; 
gotoxy(   2  +  (a  *  8  )  ,  (  3  + 
write  ((1  /  answerS) :4:2  )  ; 

end  ; 

window  (1,13,80,23  ); 

text  background ( 14)  ; 

text co lor  (  black  )  ; 


a  ) 


)  >  ; 
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if  answer  =  ' rt1  then 
beg  in 

got  ox y  (  1,3  )  ; 

write  (  '   how  many  times  is  ' ,cr iter ia£, 

'  more  important  than  '  ,  criterial  ,  '  ?  '  )  ; 
gotoxy  (  1,4); 

write  (  '    (  See  note  below  '  )  ; 
info  ; 
repeat 

gotoxy (75,  3  )  ; 

c 1 reo 1  ; 

read  (  answer  )  ; 

val   (  answer  ,  answer3  ,  code  )  ; 
until  (  (   code  =  0  )  and  (  answer3  <>  iZi  )  )     ; 
rnatr  i  x£Ca,  b]  :  =  ( 1  /  answer 3)  ; 
matr i x£ Cb, a3  :=     answer3   ; 
matri x£Ca, a3     :=  1  ; 


window  (  1,1, 50, 12  )  ; 

text  background ( bl ue)  ; 

gotoxy   <  <  £  +(  b   *  8  )  ),  3  +  a  ) 

write  ((1/  answer 3) : 4 : £)  ; 

gotoxy  (   £+(a*8),(3  +  b   )); 

write  (  answer3:4:£  )  ; 
end  ; 

window  (1,13, 80, £3  ); 
text  background ( 14)  ; 
gotoxy  ( 1 , £  )  ; 
clreol  ; 
gotoxy  (1,3  )  ; 
clreol  ; 

goto  ert 1 

end  ; 
end  ; 

window (1,1, 30, £5) ; 
gotoxy (1,1)  ; 
end  ; 
END  ; 


OVERLAY  PROCEDURE  PI  RECTI  (var    array£ : t it le ; var  w: integer  ; 

var   vectortan  :   vectors 1   )  ; 

LABEL 

ert 1 , ert 3  ; 
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CONST 

count  =  3  ; 

VGR 

a3,  b3,  c3,  d3, h3,  k3, f3,  p3,  1,  ai, bl, 

levelsl ,  i , count  1 ,  istogram  :  integer  ; 

row,  rowl ,  lamda,  ci,  ri  ,  cr, 

score, answer3, integer 1  :  real  ; 

array5, vectorbase, exchanges  :  vectorsl  ; 

st  :  string  C3]  ; 

ch  :  char; 

larndal,  vector2  :  array  CI..  503  of  real  ; 

exchange4  :  array CI.. 201  of  name  ; 

matri  x2,  result ,  matri  x3  :  array  C  1 .  .  £0,  1 .  .  20]  of  real 

answer4  :  name  ; 


PROCEDURE  INFO  ; 
BEGIN 

window  (1,13,80,23  ); 
text  background < 14)  ; 
clrscr  ; 

textcolor(  red  )  ; 
got ox y (1,10)  ; 

' "note  :  be  as  accurate  as  possible 

—  any  #  between  0  and  10  e. g,  2.45  ' )  5 
'  a  possible  scale  for  inexact  is  :  '  )  ; 
'  3  =  weakly  important  than  ,5  =  strongly  more 
import an  than  ' )  ; 
'  7  =  very    strongly  more  imp. than 
9  =  absolutely  more  imp.  than' ) ; 

END  ; 


BEGIN  (*  main  *) 

window  (  1, 1,50, 12  )  ; 
text  background ( blue)  ; 
clrscr ; 

window  (51,1,80,12); 

text  background  (white  )  ; 

clrscr  ; 

window  (1,13,80,23  ); 
text  background ( 14)  ; 
clrscr  ; 
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wr i t eln 

( 

Writ eln 

( 

writ eln 

( 

writ eln 

< 

window  (1,24,80,25  ); 

text  background (wh it e)  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy (2,1)  ; 

write  (  'step  3  :  prioritization  of  evaluation  criteria' ) 

gotoxy (  2,2)   ; 

write  (  'direct  input  of  criteria  weights  ')  ; 

level si  :=  w  ; 

if  levelsl  <>  0   then 

begin 

window  (  1,  1,50,  12  )  ; 

text  background ( bl ue)  ; 

clrscr; 

window  (51,1,30,21); 

text  background  (  white  )  ; 

clrscr  ; 

window  (1,  13,80,23  )  ; 
text  back. g r o und  (14)  ; 
clrscr  ; 

if    w  =  1  then 

vectort an CwH  :=   1 
else 
begin 

for  a3  :=  1  to  5  do 

matr ix2 Ca3,  a33  :=  1  ; 
window  (  1,  1,50,  12  )  ; 
text  background ( bl ue)  ; 
text co lor  (  white  )  ; 

vector base  :=   vectort an  ; 

levelsl  :=  w  ; 

gotoxy  (  1,1)  ; 

window  (51,1,80,21); 

text  background  (  white  )  ; 

textcolor(  0  )  ; 

gotoxy  (1,1)  ; 

write  (  '     priority  vector  '  )  ; 

for  al  :=  1  to  levelsl  do 

beg  in 

gotoxy  (2,3  +al  ) ; 

write  (copy(  array2 Cal 1 ,  1 ,  18)  )  ; 
end  ; 

for  a  :  =  1  to   levelsl   do 
beg  in 

gotoxy (20,  3  +  a  )  ; 

write  (  chr  (  179  )  )  ; 
end  : 
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ert  1 


for  a  :=  1  to   levelsl 
beg  in 

gotoxy (27,  3  +  a  )  ; 

write  (  chr  (  179  )  ) 

end  : 


info  ; 

text co lor  (  0  )  ; 

gotoxy  (2,2)  ; 

write  (  'enter  the  weights  of  the  criteria  :  '  )  ; 

for   a  :=  1  to  levelsl   do 

begin 

gotoxy  (  2  ,  2+a  )  ; 

write   (  array2Ca3  ,':'); 
end  ; 


2+a  ) 


for   a  :=  1  to  levelsl   do 
begin 
repeat 

gotoxy  (  length (array£ Ea3 ) +5  , 
clreol  ; 

read  (  answer  )  ; 
val   (  answer  ,  answer 
until  ((  code  =  $  )  and  (  answer 3  >  -1  )  and 

(answer3  (11)); 
vect or base CaD  :=  answer 3  ; 
end  ; 


,  code  )  ; 


rowl  :  =  i3  ; 

for  p3  :=  1  to   levelsl   do 

rowl  :=  rowl  +  vect or base Cp33  ; 
for  p3  :=  1  to   levelsl  do 

vect or base Cp3D  :=  vect or base Cp3]  /  rowl  ; 

window  (51, 1, 30, 21 ) ; 
t ex t background  (  white  )  ; 
for  al  :=  1  to  levelsl   do 
beg  in 

got oxy (22, al+3)  ; 

write  (  vect orbase Cal ] : 5 : 3  )  ; 
end  ; 

window  (1,13,30,23  ); 

text  background ( 14)  ; 

clrscr  ; 

vectortan  :=  vect orbase  ; 

repeat 

count  1  :=  0  : 


for  a 


1  to  (  levelsl  -  1  )   do 
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begin 

if  vectorbaseCa]  <  vectorbaseCa+1]   then 
begin 

exchanges  Call  :=  vect orbase Ca3  ; 
vectorbase  Call  :=  vect orbase Ca+1 1     ; 
vectorbase Ca+U  :=  exchanges CaD  ; 
exchange4Ca]  :=  array£Ca]  ; 
array£[a]  :  =  array£Ca+l]  ; 
array£ Ca+1]  :=  exchanged Ca3  ; 
count  1  :=  count  1  +  1  ; 
end  ; 
end  ; 
unt  i 1   count  1=0; 

for  a 1  : =  1  to  1 eve 1  s  1  do 
beg  in 

gotoxy  ((   (5*   al  )  )  ,  9   ); 

write  (copy (  array£ Call, 1,3)  )  ; 
end  ; 

for  al  :=  1  to  level si  do 
beg  in 

gotoxy  ((   (5*   al  >  )  ,  10   )  ; 

write  (vectorbase Cal 3: 3 : £)  ; 
end  ; 

text  background  (  green  )  ; 
for  al  :=  1  to  level  si  do 
beg  in 

gotoxy  (  (  5  *  al  )  ,  8  )  ; 

write  (  '     '  )  ; 
end  ; 

for  al  :=  1  to  levelsl  do 
beg  in 

gotoxy  (  (5  +  (  5  *  al  ))  ,  9  )  ; 

for  bl  :=  1  to    round  (  vect or base Cal 1     *    10  )     d> 

beg  in 

gotoxy  (  (  (  5  *  al  ))  ,  (9  -bl)  )  ; 
write  (  '     ' )   ; 
end  ; 
end  ; 

gotoxy  (£, 11) ; 

text  background  (  14  )  ; 

t  e  x  t  co 1 or  (blue)  ; 

write ('  do  you  want  to  modify  the  evaluation  of 

the  criteria  (y/n)     ?  * )  ; 
Text co lor  (  black) ; 
repeat 

gotoxy (  65, 11)  ; 
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c 1 reo 1  ; 

read  (  answer  )  ; 
answer  :=  stupcase 
until    ((answer  =  '  y' 


(  answer  )  ; 
)  or  (  answer 


window  (1,13,30,23 
text  background (14) 


) 


if 

answer 

= 

be 

g 

in 

c 

lrscr 

■ 

g 

oto  er 

tl 

en 

d 

5 

end 

■ 

1 

end 

5 

END 

■ 

=  ' y'  then 


n'  )  ) 


INCLUSE  FILE  STEP3-2 


PROCEDURE  SELECTCRITERIA 


( var 
yar 
va.r 


var* 
va.r 


problem  :  easel  ; 
vectorl  :  vectors 1  ; 

vectorE, vector 3, 
vector 4, vector 5, 
vectors, vector7  : vectors 
norrnvectorl  :  vectorg  ; 
normvect or2  :  vectom  5 
nurnof  criteria  :  integer 


VAR 


f ,  a,  b,  c 
normvect  or5 
normvect or 6 
n umofcr i  t  er  i  a 1 


integer  ; 

vectorg  ; 

vectom  ; 

integer  ; 


BEGIN 


for  a  :=  1  to  125  do 
beg  in 

normvect  or2  Call  : =  0  ; 

normvect or 1 C a]  :=  '  '   ; 
end  ; 

f  :=  nurnof  criteria  ; 
for  a  :=  1  to  problem. Levels  do 
begin 

if   problem.  Sub  level  1  Call  =  0  then 

begin 

normvect or 1 CfH  :=  problem.  Level  1  Call  ; 
normvect or2 Cf 1     :=  vectorlCa] ; 
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f  :=  f  +  1  ; 

end 
else 
beg  in 

for  b:=  1  to  problem. Sublevell Ca]  do 
beg  in 

if  problem. Sub  level £ Ca,  bH  =  d  then 
beg  in 

norrnvectorl  Cf  1     :=  problem.  Levels  Ca,  bl     ; 
normvectorSCf 1     :=  vectorSCa, b]  ; 
f  :=  f  +  1  ; 
end 
else 
beg  in 

for  c  :=  1  to  problem.  Sub  level  £  Ca,  bU  do 
beg  in 

case      a     of 
1 :  begin 

norrnvectorl  [f]  :=  problem.  Level3  Cb,  cl     : 
normvect  or£ C  f 1  : =  vect or3  Cb, c]  ; 
f  :=  f  +  l  ; 
end  ; 
£:  begin 

norrnvectorl  CfU  :=  problem.  Level 4  Cb,  c  1     ; 
normvectorSCf ]  :=  vect or4 Cb, cD  ; 
f  :=  f  +  1  ; 
end  ; 
3:  begin 

norrnvectorl  [f]  :=  problem.  Levels  Cb,  cl     ; 
normvect or£ CfH  :=  vector5Cb,c]  ; 
f  :=  f  +  1  ; 
end  ; 
4:  begin 

norrnvectorl  Lfl     :=  problem.  LevelSCb,  c]  ; 
normvector£Cf]  :=  vector6Cb,c3  ; 
f  :=  f  +  1  5 
end  ; 
5:  begin 

normvect or 1 CfD  : =  problem. Level7 Cb, cl     ; 
normvect or£ CfH  :=  vector7Cb, c]  ; 
f  :=  f  +  1  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
end  ; 
nurnofcriteria  :=  f  ; 

END  : 
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PROCEDURE  FINALCRITERIA 


VflR 


(  var  normvectorl 
var  norrnvectorS 
var    numof criteria 


vectorg  ; 

vectom  ; 
integer    ) 


a,  b, number, start  point  : 
sum, precent  :  real  ; 
answer  :  char  ; 
numof cr iter ial  :  integer 
norrnvect  or5  :  vectorg  ; 


integer 


normvectorS 


vectorn 


PROCEDURE  WRITECRITERIfl  ; 
VfiR 


linex, rowx  :  inteqer  ; 
BEGIN 

window  (  1,1,30,15)   ; 

text  background  (  blue  )  ; 

text co lor  (  white  )  ; 

clrscr  ; 

got  ox y  (  3,  £)  ; 

write  (  'the  final  criteria  ( 

and  their  weights  are 
got  ox y  (  1,4  )  ; 
sum  :=  «3  ; 
n  umo  f cr  i  t  er  ial 
normvectorS 
norrnvect  or6 
for  a  :=  1  to 
sum  :=  sum 
for  a  :=  1  to 
beg  in 

normvectorS  CaD 
end  ; 

=  3  ;  rowx  :  =  £  ; 

=  1  to  n umo f cr i t er i a  do 


numof criteria  , ' 


=  numof cr it eri a  ; 

=  normvectorl  ; 

=  normvectorS  ; 
n  umo  f cr  i  t  er  i  a   do 

norrnvect  or 2  Call     ; 
n umo f cr i t er i a    do 

:=    norrnvect  or£"  Call     /    sum 


1  inex 
for  a 
begin 
if 


)  then 


(  1 inex  > 
beg  in 

1 inex  : =  3  ; 
rowx  :=  45  ; 
end  ; 

got ox y  (  rowx, linex  )  ; 
write  (a,'.  , Normvectorl CaD  , 
linex  :=  linex  +  1  ; 
end  ; 
END  : 


norrnvect  or£  Call  :  4  : 
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BEGIN  (*  main  *) 

window  (  1,1, 80, 15)  ; 
text  background  (  blue  )  ; 

clrscr  ; 

window  (  1,16, 30, S3)  ; 
text  background  (14   )  5 
clrscr  ; 

window  <  1,24,80,25  )  ; 

text  background  (  white  )  ; 

c 1 rscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  2,  1  )  ; 

write  ('step  3  : prior it i zat ion  of  evaluation  criteria  ')  ; 

gotoxy  (2, 2)  ; 

write  (  'determine  the  number  of  the  criteria  '  )  ; 

st  art  po  i  n t  :  =  n  umo f  cr  i  t  sr  i  a  ; 

wr i t ecr i t er i a  ; 

window  (  1,  16,30,23)  ; 

text  background  (  14  )  ; 

c 1 rscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  2, 2)  ; 

write  ('do  you  want  to  reduce  the  number  of  the 

criteria  (y/rt)  ?   '  )  ; 
Repeat 

gotoxy  (S3, 2)  ; 

clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
until   (  (  answer  =' y'  )  o^     (  answer  =  '  n'  )  )  ; 

repeat 

if  answer  =  '  y'  then 
beg  in 

gotoxy (  2, 2)  ; 

clreol  ; 

write  (  'you  have  two  methods  :  '  )  ; 

gotoxy  (  4,4); 

write  (  '    1.  Define  the  number  of  the 

criteria  that  you  want  to  use  ' ) ; 
gotoxy  (  4, 5)  ; 

write  (  '   2.  Define  the  sum  (  %    )  that  you  wish  '  )  ; 
gotoxy  (  2, 7  )  ; 

write   ('method  that  you  wish  (1  or  2)  ?  '   )  ; 
Repeat 

gotoxy (  50, 7) ; 
c 1 reo 1  ; 


116 


read  (  answer  )  ; 
until  (  (  answer  =  M')  or  (  answer  =  » £'  )  )  ; 
if  answer  =  '1'  then 
beg  in 

gotoxy  (  £,  £)  ; 

write  ('the  number  of  the  criteria  that  you  wish 

(up  to'  , start  point  ,  '  )  ?   '  )  ; 
Repeat 

gotoxy  (  60  , S  )  ; 
c 1 reo 1  ; 

read  (  number  )  ; 
until  (  number  (=  start  point   )  ; 
n  urn  of  criteria  :=  number  ; 
end  ; 

if  answer  =  ' £'  then 
beg  in 

clrscr  ; 

gotoxy  (  £,  £  )  ; 

write  (   'enter  the  value  ("/•)  that  you  wish  :  ' 

read  (  precent  )  ; 

sum  : =  0  ; 

a  :=  0  ; 

repeat 

a  :  —    a  +  1  ; 

sum  :=  sum  +  (  norrnvector£  Call  *  100  )  ; 
b  :  =  a  5 
until  (   sum  >  precent  )      ; 
numof cr i t er ia  : =  (  b  —  1 )       ; 
end  ; 
end  ; 

wr i tecr it er ia  ; 
window  (  1, IS, 30, £3)  ; 
clrscr  ; 

text co lor  (  black  )  ; 
gotoxy  (  £,  £  )  ; 
write  ('do  you  want  to  change  the  number  of  the 

criteria  iy/r\)     ?  '  )  ; 
Repeat 

gotoxy  (70, £  )  ; 
read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
until  ( (  answer  =' y' )  or  (  answer  =  ' n' )  )  ; 
if  answer  =  ' y'  then 
beg  in 

nurnof  criteria     :=    nurnof  cr  i  t  er  ial     ; 
norrnvector  1  :=    normvector5     ; 

norrnvector£  :=    norrnvector  6     ; 

clrscr    ; 
end     ; 
until     (    answer    =    ' n' )      ; 
END     ; 
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INCLUDE  FILE  5TEP4 

PROCEDURE    SOLVEUIITHflHP     ? 

LABEL 

telos3x  ; 

PROCEDURE  DISPLAYFINALS  ; 
BEGIN 

window  (1,1,80,23)  ; 

text  background  (  blue   )  ; 

clrscr  ; 

window  ( 1 , £4, 30, £5)  ; 

text  background  (  white   )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  £, 1 )  ; 

if  index  then 

write  (  'step  5  :  direct  input  of  the  weights'  ) 
else 

write    (    'step    4    :    individual    evaluation   of 
alternatives' ) ; 

gotoxy  (  £,  £)  ; 

write  (  ' final  result'  )  ; 

window  (1,1,30, £3)  ; 

text  background  (blue   )  ; 

clrscr  ; 

text  co 1 or  (  wh  i  t  e    )  ; 

gotoxy  (  £,3  )  ; 

write  (  '  final  solution  '  )  ; 

for  al  :=  1  to  problem. Numofal ternat ives   do 
begin 

text co lor  (  white  )  ; 

gotoxy  ((   (5*   ai  ) )  ,  19   ); 

write  (  copy (  problem. Al ternat ives Cal 1 , 1 , 3)  )  ; 

gotoxy  (  (   (  5  *   al  ) )  ,  £0   )  ; 

text co lor  (  red  )  ; 

write  (  al t vector 1 CalD :3:£  )  ; 
end  ; 

text  background  (  red  )  ; 

for  al  :=  1  to   problem. Numofal ternat ives  do 
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beg  in 

gotoxy  (  (5  +  (  5  *  ai  ) )  , 17  )  ; 

end  ; 

ant  l  1   count  =  £1  ; 
END  ; 

BEGIN  <*  main  *) 

if  index  then 
beg  in 

altemat  ives  1  :=  problem,  alternatives  ; 

Evalaate3  (  altemat  i  vesl  ,  alt  vector   , 

problem.  Nurnof al t ernat  ives  ,  normvectorl,  ax)  ; 

altemat  ivesx  :=  problem,  alt emat  ives  ; 
altvectorx       :=  alt vector  ; 
alt vector!      :=  alt vector  ; 
End 
else 
begin 

if  norm. Special i zed   then 

altmatrix  :=  specf i le£. Alt matrix  ; 
if  indexE'   then 
beg  in 

for  ax  :=  1  to  nurnof criteria   do 
beg  in 

if  norm. special i zed   Then 
beg  in 

if  specf  i  leE".  normindex  CaxH  <>  namex   Then 
goto  telos3x  ; 
end  ; 

altemat  i vesl  :=  problem.  Altemat  ives  ; 
evaluatel  (  altemat  ives  1  ,  alt  vector   , 

problem. Nurnof alt ernat ives  , 
normvectorl, ax) ; 

for  b  :=  1  to  problem.  Nurnof  alt  emat  ives   do 
altmatrix  C  b, ax  3     :=  al t vector Cb J  : 
t elos3x : 

end  ; 

if  norm. Special i zed  then 
beg  in 
specf i le£. Elect re. Nurnof tries  := 

solut ion. Electre. Numoftries  ; 
specf i le£. Electre. Stat  us  :=  solution. Electre. Status; 
specf i leE. Ah p. Stat  us  :=  sol ut ion. Ah p. St at  us  ; 
specf  i  le£.  Ahp.  Nurnof  tries  :  =   sol  ut  ion.  Ahp.  Nurnof  tries  ; 

specf i le£. Altmatri x  :=  altmatrix    ; 
wr i tespecf i le  ; 
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end  ; 
end 

else 

beg  in 

alt  emat  ivesl  :=  problem.  Alt  emat  ives  ; 
direct£a  (  altemat  ivesl  ,  alt  vector   , 

problem.  Nurnof  alt  emat  ives,  normvector  1,  ax)  ; 
if  norm. Special i zed  then 
begin 

specf  i  le£.  Elect  re.  Nurnof  tries  :  = 

solution. Elect re.  Nurnof tries  ; 


specf i le£. Alt matri x  :=  alt  matrix    ; 

end  ; 

end  ; 

if  not  norm. Special i zed  then 

sort result 
else 
beg  in 

b  :=  iZi  ; 

for  a  :=  1  to  3  do 

beg  in 

if  specf  i  le£.  Final  index  Call   then 
b  :=  b  +  1  ; 
end  ; 

if  b  =  norm. Nurnof users  then 
beg  in 

sort result  ; 

specf i le£. Comp let edal 1  :=  true  ; 
end  ; 
end  ; 
end   ; 

if  not  norm. Special i zed  then 

d  isplayf inals 
else 
beg  in 

if  specf i le£. Comp let edal 1  then 
beg  in 

d isplayf inals  ; 

specf i le£. Ahp. Stat  us  :=  true  5 
specf  i  le£.  Nurnof  criteria  :=  nurnof  criteria  ; 
specf  i  le£.  Normvector£  :=  norrnvectorS  ; 
specf i le£. Normvector 1  :=  normvector 1   ; 
specf  i  le£.  Nurnof  alt  emat  ives   :  = 
problem.  Nurnof  alt  emat  ives  ; 
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writespecf i le  ; 

answer   :=  concat  (  '  .  '  ,  Inte  )  ; 
problnarne   :=  concat  (  problnarne  ,  answer  )  ; 
end  ; 
end  ; 
END  ; 

PROCEDURE  CQMPUTEflLTERNflTIVES  ; 

LABEL 

telosS  ; 
PROCEDURES  ALLUSERS  ; 
LABEL 

telosSx  ; 

BEGIN 

if   methodx  =  'elect  re'   then 
begin 

count  irnes  :=  sol ut ion. Electre. Nurnof tries  ; 
if  norm. Mod i fy  then 
beg  in 

if  count  irnes  <  norm.  Mod  i  fyt  irnes   then 
begin 

count  irnes  :=  count  irnes   +  1  ; 
clrscr    ; 

sol ut ion. Elect re. Stat  us  :=  true  ; 
solut  ion.  Electre.  Nurnof  tries  :=  count  irnes  ; 
electre   ; 
end 
else 
beg  in 

clrscr  ; 
gotoxy  (  5, 3)      ; 

write  (  'you  cant-  modify  your  output  '  )  ; 
gotoxy  (  5,  10  )  ; 

write  (  'hit  any  key  to  continue  ' )  ; 
read  (  kbd, ch  )  5 
goto  telosSx  ; 
end  ; 
end 
else 
beg  in 

if    count  irnes       =    0         then 
beg  in 

count  irnes     :=    count  irnes       ■+•    1        ; 
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clrscr    ; 

sol ut ion. Elect re. St  at  us  :=  true  ; 

sol  at  ion.  Elect  re.  Numoftr  ies  :=  count  irnes  ; 

elect re   ; 
end 
else 
begin 

c 1 rscr  ; 

gotoxy  <  5, 9)  ; 

write  (  'you  cant  modify  your  output  '  )  ; 
gotoxy  (  5, 10  ) ; 

write  (  'hit  any  key  to  continue  ' )  ; 
read  (  kbd, ch  )  ; 
goto  telos6x  ; 
end  ; 
end  ; 
end 
else 
beg  in 

count  i  rnes  :  =  so  1  ut  i  on.  Ah  p.  Nurnof  t  r  i  es  ; 
if  norm. Mod i fy  then 
beg  in 

if  count irnes  <  norm. Mod i fyt irnes   then 
begin 

count  irnes  :=  count  irnes   +  1   ; 

index  :=  false  ; 

if  methodx  =  ' ahp'  then 

index£  :=  true 
else 

indexE'  :=  false  ; 
solvewithahp  ; 
end 
else 
begin 

clrscr  ; 
gotoxy  (  5, 9)  ; 

write  (  'you  cant  modify  your  output  '  )  ; 
gotoxy . (  5, 10  ) ; 

write  (  'hit  any  key  to  continue  ' )  ; 
read  (  kbd, ch  )  ; 
goto  telosEx  ; 
end  ; 
end 
else 
begin 

if  count  irnes   =  0    then 
begin 

count  irnes  :=  count  irnes   +  1  ; 

index  :=  false  ; 

if  methodx  =  'ahp'  then 
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index2  :=  true 

else 

index2  :=  false  ; 

solvewithahp  ; 

clrscr    ; 
end 
else 
beg  in 

clrscr  5 

gotoxy  (  5, 9)  ; 

write  (  'you  cant  modify  your  output  '  )  ; 

gotoxy  (  5,  HZi  )  ; 

write  (  'hit  any  key  to  continue  ' )  ; 
read  (  kbd, ch  )  ; 
goto  telosSx  ; 
end  ; 
end  ; 
end  ; 
t elosbx : 
END  ; 


BEGIN  <*  main  *) 

string  128  :=   'step  4  :  individual  evaluation  of 

alternatives' ; 
diskstatus  ; 
clrscr  ; 

window  (  1,24,30,25)  ; 
text co lor  (  black  )  ; 
text  background  (  white  )  ; 
gotoxy  (  £, 2)  ; 
clreol  ; 
write  (  '  identification  of  the  problem 

methods  :   ahp, elect re, d irect ' )  ; 
window  (  1,13,30,23)  5 
text  background  (  14  )  ; 
clrscr  ; 
read  1  ; 

read pro blemf i 1 e  ; 
read2  ; 

readnormfile  ; 
read3  ; 

if  not  norm. Special i zed  then 
begin 

if  (  not  exist (pruser)  )  then 

beg  in 

clrscr  ; 

write  (  '  you  must  compute  first  the  criteria  '  )  ; 

wait  ; 


123 


got 
end  ; 

end 


:■  telosS 


else 
beg  in 

readspecfile  ; 

if  (  not  specf  i  leE".  Completed  )  then 

beg  in 

c 1 rscr  ; 

write  (  '  the  evaluation  of  the  criteria  is 

not  yet  completed  '  )  ; 
wait  ; 
goto  telosS  ; 

end  ; 

end  ; 


if  (  not  norm. Special i zed 
beg  i  n 

read sol ut ionf i le  ; 

n  urno  f cr  i  t  er  i  a 

normvect or  1 

normvect or£ 
end 
else 
beg  in 

n  urno  fcriteria 

normvect or  1 

normvect  ore.' 
end  ; 


)  then 


so  1  ut  i on.  Numo  fcx^ i  t  er  i a 
so 1 ut  i  on. Normvect  or  1 
sol ut  ion. Normvect or 2 


=  specf i le£. Numof criteria 
=  specf i le£. Normvect or 1 
=  specf  i  le£.  Normvect  or £.' 


read4  ; 

read5  ; 

wr  i  t  enormf  i 1 e  ; 

if   (  norm. Special i zed  )  then 

beg  in 

solution. Elect re. Numof tries  := 

specf i le£.  Elect re. Numof tries ; 

so lut ion. Elect re. Stat  us  :=  specf i le£. Elect re. St at  us  ; 

sol  ut  ion.  fthp.  St  at  us  :=  specf  i  le£'.  Elect  re.  St  at  us  ; 

sol  ut  ion.  fihp.  Numof  tries  :=  specf  i  leE'.  Elect  re.  Numof  tries  ; 

a  :=  iZi  ; 

repeat 

a  :  =  a  +  1  ; 

until  (  narnex  =  norm.  Usersnames  Za.3     )  ; 

specf i le2. Final  index Ca3  :=  true  ; 
end  ; 
all  users  ; 

telosS:  ; 
END  : 
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INCLUDE  FILE  STEP4-1 


OVERLAY  PROCEDURE  EVALUATE  1 


LABEL 

ert , ert  4 

CONST 

count  =  ; 

VAR 


VAR 

ALTERNATIVES  :  TITLE1  ; 

VAR 

ALTVECT0R3  :  VECTORF  ; 

VAR 

W  :  INTEGER  ; 

VAR 

NORMVECTOR1  :  VECTORG 

VAR 

AX  :  INTEGER  )  -, 

rnatrixS,  result ,  mat rix3  :  amay  CI. 
arrayS, alcvector5, exchanges, altvec 
1  arndal ,  vector^  :  vectorf  ; 
exchange4, al ternat i vesk  :  tit  lei 
nurnof altemat  i ves,  I,  count  1,  xi,  yl,  a 
a3, b3, c3, d3, h3, k3, f3, p3, 1  :  intege 
score, answers,  integer 1,  row,  rowl , 
1  arnd a,  ci,  ri,  cr  :  real  ; 
st  :  string  C93  ; 
ch  :  char; 


.  £0,  1 
tor  6 


1,  bl 


£03  Of  real 
vectorf  : 


PROCEDURE  INF01 
beg  in 

window  (1, yi+1, 80, £3) ; 

text  background  (14)  ; 
textcolor(  red  )  ; 
got oxy (1,5)  ; 


writeln  (  ' "note 
—  any 


wr  i  t  e 1 n 
Writeln 

wr i  teln 


wr  i  t  e 1 n  ( 

Text co lor 
end  : 


:  be  as  accurate  as  possible 
#  greater  than  1  ' )   ; 
e.  g  ,  2.  - 


or 


'  a  possible  scale  for  inexact  is 
'  3  =  weakly  important  than  ,  5  = 
import  an  than  '  )  ; 

'  7  as  very  strongly  more  imp.  than 
9  ss  absolutely  more  imp.  than'  )  ; 
(  black  )  j 


■  '  ) 
strongly  more 


BEGIN 


nurnof al t er nat  i  ves  :=  w  ; 
case  nurnof  alter  nat  i  ves  of 
1,2,3,4,5,6,7  :  begin 

xl  :=  50 


yi 
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12: 


end  ; 

3, 9, 10, 1 1       :  begin 

x 1  : =  55  ;  y 1  : =13  ; 
end  ; 
12,  13,  14,  15    :  begin 

xi  :=  70  ;  yl  :=15  ; 
end  ; 
end  ; 

numof alternat  ives  :=  w  ; 

if  nurnof alt emat  ives  <>  0   then 

beg  in 

window  (l,l,xl,yl); 
text  background ( bl ue)  ; 

clrscr ; 

w i  ndow  ( x 1  + 1 ,  1 ,  30,  y 1 )  ; 
taxtbackg ro und ( wh i  t  e )  ; 
clrscr  ; 

window  (1, yl+i, 80, S3) 5 
text  background ( 14)  ; 
clrscr  ; 

window  (  1 ,  £4,  S0,  £5)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

got ox y  (2,1)  ; 

write  ('step  4: individual  evaluation  of  alternatives  '); 

gotoxy  (  2, £  )  ; 

write  (   'evaluation  of  alternatives  according  to 

criterion  '  ,  normvector 1 Cax3 ,  '  rnethodx'  )  ; 
w i nd ow  (1,  1 ,  xl,yl)  ; 
text  background  (  blue  )  ; 
text co lor  (  white  )  ; 
alt vectors  :=   altvector3  ; 
nurnof alternat  ives  :=  w  ; 
gotoxy  (  1,1)  ; 

write  ('  pairwise  comparison  ' )  ; 
gotoxy  (  10,  3  )  ; 

for   al  :=  1  to  nurnof  alt  emat  ives  do 

write  (  copy (  al ternat ivesCal 3 , 1 , 5) : 5  ,  '    '  )  ; 
for  al  :=  1  to  nurnof  alternat  ives  do 
begin 

gotoxy  (2  ,3+al  )  ; 

write  (copy(  alternat ives Cal D  ,  1 ,  5)  :  5  )  ; 
end  ; 
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window  (xl+1, 1, 30, yl ) ; 

text  background  (  white  )  ; 

textcolor(  0  )  ; 

gotoxy  (1,1)  ; 

write  (  '     priority  vector  '  )   ; 

for  al  :=  1  to  nurnof alt ernat  i  ves  do 
beg  in 

gotoxy  (  £  ,  3  +al  )  ; 

write  (copy<  alternativesCal],  1,  18)  )  ; 
end  ; 

for    a     :=    1    to       nurnof altemat  i ves       do 
beg  in 

gotoxy (£0,3  +  a  )  ; 

write  (  chr  (  179  )  )  ; 

end  ; 

for  a  :=  1  to   nurnof  alt  ernat  i  ves   do 
beg  in 

gotoxy (£7,  3  +  a  )  ; 

write  (  chr  (  173  )  )   ; 
end  ; 

window  ( 1,  yl  +  1, 30, £3)  ; 
text  background ( 14)  ; 
clrscr  ; 

infol  ; 

for  a  :=  1  to  nurnof  alt  ernat  i  ves  do 
mat r i x£ Ca, a]  :=  1  ; 

for   a  :=  1  to  (   nurnof  alt  ernat  i  ves  -  1  )   do 
beg  in 

criterial  :=  alt ernat i ves CaD  ; 

for  b  :=  1  to  (  nurnof  altemat  i  ves  -  a  )    do 

beg  in 

criteria£  :=  al t ernat i ves Ca+bH  ; 
repeat 

text co lor  (  0  )  ; 

gotoxy (  1 , £  )   ; 

write  (    '   is  ', criterial  ,  '  better  than   ' 

criteria£  , '  (y/n)  ?    '    )  ; 

Gotoxy  (  S4, £  )  ; 
clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
clreol  ; 
until   (  (  answer  =  ' y' )  or  (  answer  =  ' n'  )  )  ; 
if  answer  =  ' y'  then 
beg  in 

text  co  lor  (  black.  )  ; 
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gotoxy  (  1,3  )  ; 

write  (   '   how  many  times  is  ', cr it erial , '  better 

than   ' ,  criteriaS  ,  '   ?    ' ) ; 
Gotoxy  (1,4)  5 
write  (   '    (  see  note  below  )  '  )  : 


repeat 

gotoxy (  64  , 3  )  ; 
clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
val   (  answer  ,  answer3  ,  code  )  ; 
until  (  (   code  =  i3  )  and  (  answer3  >  i3  )  ) 


matrix£Ca, a+b3 

J-.--  ..■■*■"_  i  1—    _T 


matr  i  x2  Ca+b,  a.1 
itr  i  x£Ca,  a] 


ma" 


=  answers 
(  1  / 

=  1  ; 


answer 


w  i  ndow  ( 1 ,  1 , x 1 , y 1 )  5 
text  background  (  blue  )  ; 

gotoxy   (  (  £  +<  (a+b)  *  8  )  )  ,  3  +  a  )    ; 
text co lor  (  white  )  ; 
write  (  answer 3 : 4 :£ )  ; 

gotoxy (   2  +  (a  *  8  )  ,  (  3  +(  a  +  b  )  )  )  ; 
write  ((1  /  answer3):4:£  )  ; 
end  ; 


window  (  1, y 1+1, 80, £3)  ; 
text  background  <  14  )  ; 
text co lor  (  black  )  5 
if  answer  =  ' n'  then 
beg  in 

gotoxy  (  1,3  )  ; 

write  (  '   how  many  times  is  ' , cr i ter ia£, ' 


better  than 


criteria! 


Gotoxy  (  1,4)   ; 

write  (  '    (  see  note  below  )  '  ) 

repeat 

gotoxy (64, 3  )  ; 

c 1 reo 1  ; 

read  (  answer  )  ; 


val 


(  answer 


answer. 


code  ) 


until  (  (   code  =  0  )  and  (  answer3  <>  0  )  ) 


matrix£Ca, a+bD 
rnatrix£  Ca+b,  all 
matrix£Ca, a] 


= ( 1 /  answer 3)  ; 


answers 


=  1 


window  (  l,l,xl,yl)  ; 
text  background  (  blue  )  ; 
text co lor  (  white  )  : 


1£8 


gotoxy   (  <  2  +(  (a  +b  >  #  8  )  )  ,  3  +  a  )   ; 

write  ((1/  answer3) :4:£)  ; 

gotoxy (   £  +  <a*8)  ,(3+(a+b)  )  ); 
write  (  answer3 : 4 : 2  )  ; 
end  ; 

window  (  1, y 1+1, 80, £3)  ; 
text  background  (  14  )  ; 
gotoxy  ( 1, £  )  ; 
c  1  reo  1  ; 
gotoxy  (1,3)  ; 
clreol  ; 

gotoxy  (1,4)  ; 
clreol  ; 
end  ; 

end  ; 

mat  r  i  x£  Cnumof  al  t  ernat  i  ves,  nurnofal  t  amat  i  vesj     :=    i     ; 

ert  : 

( *    mat  r  i  x  multiplication   * ) 

matrix3  :=  matrixS  ; 

for       3i3     :=    1    to       count       do 

beg  in 

for  b3  :=  1   to  numof alt ernat i ves  do 
beg  in 

for  c3  :=  1  to  numof alt ernat i ves  do 

array5Cc3]  : =  matr i x£ Cb3, a33  ; 
for  h3  :=  1  to  nurnofal ternat  i ves  do 
beg  in 

score  : =   0  ; 

for  k3  :  =  1  to  numof alt ernat i ves  do 

beg  in 

integerl  :=  array5Ck3D  *   rnatr i x£ Ck3,  h3H  ; 
score  :=  score  +  integerl  ; 
end  ; 

result  Cb3, h3D  :=  score  ; 
end  ; 
end  ; 

matrixc!  :=  result  ; 
end  ; 

result  :=  rnatrix£  ; 

(*   normalise  vector    *) 

for  p3  :=  1   to  numof al ternat i ves   do 
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beg  in 

row  :  =  0  ; 

for  f 3  : =  1   to   numof a 1 1 ernat  i ves   do 

row  :=  row  +  resul t Cp3, f 31      ; 
al t vectors Cp3 3  :=  row  ; 
end  ; 

row 1  : =  0  ; 

for  p3  :=  1  to   numof alt ernat i ves   do 

rowl  :=  rowl  +  al t vector 5 Cp3]  ; 

for  p3  :=  1  to   numof al ternat i ves  do 
beg  in 

altvector5Cp3D  :=  al t vector 5 Lp31     /    rowl  ; 
end  ; 

window  (  x 1  +  1  , 1 , 80, y 1 ) ; 

text  background  (  white   )  ; 

t  e  x  t  co 1  or  (  black  )   ; 

for  al  :=  1  to  numof alt ernat i ves   do 

beg  in 

gotoxy <££,  al+3)  ; 

write  (  al tvectorSCal 1 :S : 3  )  ; 
end  ; 
window  (  1,  y 1  +  1 , 80, 23)  ; 

text  background  (  14  )  ; 
clrscr  ; 

<*  comput  lmax  and  the  other  data  *) 

integerl  :=  0  5 

for  al:=  1  to  numof alt ernat i ves  do 

beg  in 

score  :=  0  ; 

for   bl  :=  1  to  numof alt ernat i ves  do 

beg  in 

integerl  :=  mat r i x3 Cal ,  bl 1     *    alt vectors Cbl D  ; 
score  :=  score  ■+-  integerl  ; 

end  ; 

lamdalCalU  :=  score  ; 
end  ; 

integerl  :=  0  ; 

for  al  :=  1  to   numof alt ernat i ves  do 

beg  in 

vector£Cai]  :=  lamdalCalU  /  al t vect or5 Cal 1     ; 

integerl  :=   integerl  +  vector£Cal3  ; 
end  ; 

larnda  :=  (  integerl  /  numof  alt  ernat  i  ves  )  ; 
if    numof a 1 t ernat i ves   =  1    then 
nurnof altemat  i  ves  :  =£  ; 
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ci :  =  (  ( larnda- nurnof  alt  ernat  ives)  /  (nurnof  al ternat  ives 
case  nurnof al ternat ives  of 


-  1  )  ) 


1 

:          ri 

:  = 

0. 

000001 

£ 

:          Ri 

:  = 

0. 

0000131 

kj 

:           Ri 

:  = 

0. 

58        ; 

4 

:          Ri 

;  = 

iZi. 

90        ; 

5 : 

:          Ri 

;  = 

1. 

12        ; 

6: 

:          Ri 

;  = 

1. 

£4       ; 

7: 

i          Ri     • 

:  = 

1. 

32       ; 

8: 

:          Ri     : 

:  = 

1. 

41        ; 

9: 

Ri 

:  = 

1. 

45       ; 

It 

5:        Ri 

,= 

1. 

49        ; 

1 J 

.  :        Ri 

:  = 

1. 

51        ; 

lc 

i: :        Ri     ■ 

= 

1. 

48        ; 

i; 

5:        Ri     ■ 

= 

1. 

56       ; 

i^ 

tz        Ri     . 

= 

1. 

57        ; 

IE 

7j  :        Ri     . 

= 

1. 

59       ; 

•<d 

cr     :=  ci  /  ri  ; 

window  (  1 , y 1+1 , 80, £3)   ; 

alt vectorG  :=  alt vector 5  ; 

al ternat i vesk  :=  alternatives 

repeat 

count  1  : =  0  : 


for  a  :=  1  ti 


(  nurnof  al  ternat  ives 


1  ) 


do 


beg  in 

if  alt vectors Ca3 

beg  in 

exchanges  Call 
alt vectors  Ca3 
alt  vect  or5  Ca+ 1 1 
exchange4  Call 
al ternat  ives  CaJ 
al ternat  ives  Ca+1 2 
count  1  :=  count  1 

end  ; 
end  ; 
unt  i 1   count  1=0: 


<  alt vect or 5 Ca+1 1        then 


=  alt  vectors  Call  ; 

=  alt vectors Ca+1 ]  ; 

=  exchanges  Call  ; 

==  al  ternat  ives  C  a]  ; 

—  al ternat ives Ca+1 3 

=  exchange4Ca]  ; 
+  1  ; 


for  al  :=  1  to  nurnof  al  ternat  ives   do 
beg  in 

gotoxy  ((   (5*   al)),10   ); 

write  (  copy (  al ternat ivesCal ],  1 ,  3) 
end  ; 


>  ; 


for  al  :=  1  to  nurnof  al  ternat  ives   do 
beg  in 

gotoxy  ((   (5*   al)),ll   ); 
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write  (  alt vectors Cal 1 : 3:2   )  ; 
end  ; 

text  background  (  green   ).  ; 

for  a  I  :=  1  to   nurnof  al  t  ernat  i  ves    do 

beg  in 

gotoxy  (  (5  +  (  5  *  al  ))  , 3    )      ; 

for  bl  :=  1  to   round   (   alt vectors Cal 1     *  10  ) 

begin 

gotoxy  (  (  (  5  *  al  ))  ,  (9  -bl)  )  ; 
wr  i  t  e  (  '     '  )  ; 

end  ; 
end  : 


text  background  (  14  )  ; 

text  co 1 or  (  blue  )  ; 

gotoxy  (  36, 1 )  ; 

write  (  ' **  lamda  max  = 

got  oxy (  36, £  )  ; 

write  (  '    consistency  index   =  ',  ci:4:£  ) 

gotoxy (36, 3) ; 

write  (  '    randomized  index    = 

gotoxy  (36, 4)  ; 


lamda: 4 : £  ) 


r  i  :  4  :  £  ) 


write  (  '    consistency  ratio   =  ',  cr : 4 : £  )  ; 

gotoxy  (36, 6)  ; 

write  ('•**  there  is  some  statistical'  )  ; 

gotoxy (  36, 7)   ; 

write  (  '     inconsistency  in  your  evaluation.' ) ; 

Gotoxy (36, 3) ; 

write  ('     (study  highlighted  values  for  ')  ; 
gotoxy (36, 9) ; 

write  ('    probable  inconsistent  evaluation)')  ; 
text co lor  (  black  )  ; 

alt vector 3  :=   alt vector 6  ; 
alternatives  :=  alt ernat i ves k  ; 
for  p3  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
beg  in 

for  f3  :=  1  to  nurnof  a  1 1  ernat  i  ves  do 
begin 

result  Cp3,  f3D   :=  iZi  ; 
mat  r  i  x£  Cp3,  f  33   :=  i3  ; 
end 
end  ; 
end  ; 

gotoxy  (  36, 11)  ; 

write  (  'do  you  want  to  modify  the  data  (y/n)  ?  ' 

Repeat 
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gotoxy (  75,  11)  ; 
clreol  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
until   (  (  answer  =  ' y' )  or  (  answer  =  ' n'  )  )  ; 

text  background  (  14  )  ; 
if  answer  =  ' y'  then 
begin 

clrscr  ; 

error  :=  false  ; 

repeat 

gotoxy  (  £',  £)  ; 

clreol ; 

write  (  'name  of  the  first  alternative   ?  '  )  ; 

Read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )   ; 

for  al:  — 1  to  numof alternat ives  do 

begin 

if  answer  =  a  1 1 ernat i ves La  1 1     then 
error  :=  true; 
end  ; 
unt  i 1   error  ; 
a  :=  8  ; 
repeat 

a  : =  a  +1  ; 
until  answer  =  al t ernat ives C a D  ; 

criterial  :=  answer  ; 
ert4: 

error  :=  false  : 
repeat 

gotoxy  (  £,  3)  ; 

clreol  ; 

write  (  'name  of  the  second  alternative  ?  *  )  ; 

Read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

for  bl  :=  1  to  numof alt ernat ives  do 

begin 

if  answer  =  al t ernat ives C b 1 1     then 
error  :=  true; 

end  ; 
unt  i 1   error   ; 
if  answer  =  criterial  then 

goto  ert4  ; 
b  :=  0  ; 
repeat 

b  :=  b  +  1  ; 
until  answer  =  alternat ives CbH  ; 
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cr iteriaS  :=  answer  ; 

window  (l,l,xl,yl)  ; 

text  background  (  blue  )  ; 

rftatrixc'  :=  rnatrix3  ; 

text co lor  (  red  +  16  )  ; 

gotoxy   ((£+(b*3)),3+a)    ; 

write  (  mat  r  i  x2  Ca,  b!3  :  4  :  2  )  ; 

text co lor  (  black  )  ; 

window  (  1  ,  yl  +  1  ,  80, S3)  ; 
text  background  (  14  )  ; 
c 1 rscr  ; 
repeat 

gotoxy  (  1,2)  ; 

write  (   'is  ',criterial  ,  '  better  than   '  , 
cr it eria2,  ' ?  '  )  ; 

Gotoxy  (  64, 2  )  ; 

c  I  r<ac>  1  ; 

read  (  answer  )  ; 

answer  : =  stupcase  (  answer  )   ; 

c  1  reo  1  \ 
until   (  (  answer  =  ' y'  )  or  (  answer  =  '  n'  )  )  ; 
if  answer  =  '  y'  then 
beg  in 

gotoxy  (  1,3  )  ; 

write  Chow  many  times  is  ', cr it erial , '  better  than   ' 
criteria2  ,  '   ?    '  )  ; 

Gotoxy  (  1,4)   ; 

write  (   '    (  see  note  below  )  '  )  5 

infol  ; 

repeat 

gotoxy (  64  ,  3  )  ; 

clreol  ; 

read  (  answer  )  ; 

val   (  answer  ,  answer3  ,  code  )  ; 

until  (  (   code  =  1Z1  )  and  (  answer3  <>  1Z1  )  )     ; 
rnatr  i  x2  Ca,  b3  :=  answer3  ; 
rnatrix2Cb,  al     :=    (  1  ./  answer3  )  ; 
matr  i  x2  Ca,  all     :=  1  ; 

window  ( 1 , 1 , x 1 , y 1 ) ; 
text  background  (  blue  )  ; 
gotoxy   ((2+(b*S)),  3+a)    ; 
text co lor  (  white  )  ; 
write  (  answer3:4:2)  ; 

gotoxy (   2  +  <a  *  8  )  ,  <  3  +   b   )); 
write  ((1  /  answer3): 4:2  )  ; 
end  ; 
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times  is 


window  (  1, y 1+1, 80, 23) 

text  background  (  14  ) 

text co Ion  (  black  )  ; 

if  answer  =  ' n'  then 

beg  in 

gotoxy  (  1,3  )  ; 
write  (   '   how  many 
1 ,  criterial  , 
Gotoxy  (1,4)  ; 
write  (  '    (  see  note 
infol  ; 
repeat 

gotoxy (£4, 3  )  ; 
clreol  ; 

read  (  answer  )  ; 
val   (  answer  ,  answer 3 
unt  i  1  (  (   code  =  tf  )  and 
matri x£ [a, b3  :=<1/  answer3) 
matrixc'Cb,  a]  :=     answer3 
matrix£Ca,aD    :=  1 
window  (  1 ,  1 ,  x  1 , y 1 ) 
text co lor  (  white  ) 
text  background  (  blue 
gotoxy   <  (  £  +(  b   * 
write  ((1/  answer3):4 
gotoxy (   2  +.  (a  *  8  ) 
write  (  answers : 4 : £  ) 

end  ; 

window  (  i,  y  1  +  1 ,  8iZi,  £3) 

text  background  (  14  )  ; 

gotoxy  ( 1 , £  )  ; 

clreol  ; 

gotoxy  (1,3  )  ; 

c 1 reo  1  ; 

gotoxy  (1,4)   ; 


cr i  t er i  a£ 


better  than 


below  )  '  ) 


,  code  )  ; 

(  answers  <>  0  ) 


) 

a 

£) 


>  >, 


)  ) 


clreol  ; 
goto  ert 
end  ; 

window  (1,1,  SiZi,  £5)  ; 
gotoxy ( 1 , £4) ; 


END 


OVERLAY  PROCEDURE  EVALUATES  ( 


VAR  ALTERNATIVES  :  TITLE1  ; 
VAR   ALTVECT0R3  :VECTORF  5 
VAR   W  :  INTEGER    ; 
VAR   N0RMVECT0R1  :  VECTORG 
var   ax  :  integer   )  ; 
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LABEL 

ert , ert4  ; 

CONST 

count  =  3  ; 

VAR 

mat r i  x£,  result ,  mat ri  x3  :  array  El.  .  £0,  1.  .  £811  of  real  ; 

arrayS,  alt vector5,  exchange3, alt vectors  :  vectorf  ; 

lamdal , vect or£  :  vectorf  ; 

exchange4  , al t ernat i vesk  :  tit  lei  ; 

numof al ternat  i  ves,  I ,  count l,xl,yl,al,bl, 

a3, b3, c3^ d3, h3, k3, f3, p3, 1  :  integer  ; 

score,  answer3,  integerl, row, rowl, 

1 amda, ci , r i , cr  :  real  ; 

st  :  string  C9H  ; 

ch  :  char; 

PROCEDURE  INF01  ; 
beg  in 

window  ( 1 ,  y 1  +  1,  30,  £3)  ; 

text  background  (14)  ; 

textcolor(  red  )  ; 

gotoxy (1,8)  ; 

writeln  (  ' "note  :  be  as  accurate  as  possible 

any  #  between  0  and  10  e. g  , £. 45  or  9.  34  '  )  ; 

Writeln  (  '  a  possible  scale  for  inexact  is  :  '  )  ; 

writeln  (  '  3  =  weakly  important  than  ,5  =  strongly  more 
import an  than  ' )  ; 

writeln  (  '  7  =  vory    strongly  more  imp. than   3  = 
absolutely  more  imp.  than'  )  ; 

Text co lor  (  black  )  ; 
end  ; 


BEGIN 

numof alt ernat i ves  :=  w  ; 

case  numof alt ernat i ves  of 
1,£,3,4,5,6,7  :  begin 

x 1  :  =  50  ;  y 1  : =1£  ; 
end  ; 
8, 9, 10, 1 1       :  begin 

x 1  :=  55  ;  y 1  :=13  ; 
end  ; 
1£, 13, 14, 15    :  begin 

xl  :=  70  ;  yl  :=15  ; 
end  ; 
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end  ; 

numof a 1 1  ernat  i  ves  :=  w  ; 

i  f  n umof  a  1 t  ernat  i  ves  <>  0   t h en 

beg  in 

w 1 ndow  (1,  1,  x 1 , y 1 )  ; 

text  background ( bl ae)  ; 

clrscr; 

window  <xl+l, 1, 80, yl ) ; 
text  background (white)  ; 
clrscr  ; 

window  ( 1, yl+1, 80, 23) ; 

t  e x  t  bac k g no und  (14)  ; 
clrscr  5 

window  (  1,24,  S0,  £5)   ; 

b ex t  bac k g ro und  (  wh its)  5 

clrscr  ; 

t  a  x  t  co 1 or  (  black  )  ; 

gotoxy  (2,1)  ; 

write  ('step   5:direct  input  of  alternatives  weights' )  ; 

alt vectors  :=  altvector3  ; 

window  ( x 1+1 , 1 , 30, yl ) ; 

text  background  (  white  )  ; 

text co lor (  0  )   ; 

gotoxy  (1,1)  ; 

write  (  '     priority  vector  '  )  ; 

for  al  :=  1  to  nurnof al t ernat  i ves  do 

beg  in 

gotoxy  (2,3  +al  )  ; 

write  (copy (  alt ernat i ves Cal ] , 1, 18)  )  ; 
end  ;' 

for  a  :=  1  to   nurnof  alt  ernat  i  ves   do 
beg  in 

gotoxy (£0,3  +  a  )  ; 

write  (  chr  (  179  )  )  ; 
and  ; 

for  a  :=  1  to   nurnof  al  t  ernat  i  ves   do 
beg  in 

gotoxy (£7, 3  +  a  )   ; 


write  (  chr  (  179  )  ) 
end  ; 

window  ( 1 , yl+1 , 80, 23) ; 
text  background ( 14)  ; 
clrscr  ; 


1 
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ert  : 

infol  ; 

text  co  lor  (  0  )  ; 

gotoxy  (  £,  £)  ; 

write  (  'enter  the  weights  of  the  alternatives  :  '  )  ; 

for  a  :=  1  to   nurnof  al  temat  i  ves   do 

begin 

gotoxy  (  £  ,  £+a  )  ; 

write   (  al  temat  i  vesCa]  ,':'); 
end  ; 

for  a  :=  1  to   nurnof  al  temat  i  ves   do 
beg  in 
repeat 

gotoxy  (  length  (al  temat  i  ves  Call  )  +5  ,  £+a  )  ; 
c 1 reo 1  ; 

read  (  answer  )  ; 

val   (  answer  ,  answer3  ,  code  )   ; 
until ((code  =  0) and (answer 3> — 1 )  and  (answers  <  11)); 
alt  vectorS  Call  :=  answer  3  : 
end  ; 

rowl  :=  0  ; 
for  p3  :=  1  to   nurnof  al  temat  i  ves   do 

rowl  :=  rowl  +  al t vector 5 Cp3D  ; 
for  p3  :=  1  to   nurnof  al  temat  i  ves  do 
beg  in 

al tvector5Cp33  :=  al t vect or 5 Cp3D  /  rowl  ; 
end  ; 

window  (51, 1, 30, £1 ) ; 

text  background  (  white  )  ; 

for  a  :=  1  to   nurnof  al  temat  i  ves   do 

beg  in 

got oxy (££, a+3)  ; 

write  (  al t vectorS Ca3 : 5 : 3  )  ; 
end  ; 

window  (1,13, 30, £3  ); 
text  background ( 14)  ; 
clrscr  ; 

alt vect or3  :=  alt vect orS  ; 

al  temat  ivesk  :  =  alternatives  ; 

repeat 

count  1  :=  0  ; 


for    a    :=    1    to     (    nurnof  al  temat  ives-1 )       do 
beg  in 

if    alt  vectors  Call     <    al  t  vect  or  5  Ca+1 1       then 
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begin 

exchanges  Call  :=  alt vectors Ca]  ; 
al t vectors  Call  :=  al t vectors Ca+1 1     ; 
alt vectors Ca+1 1     :=  exchanges CaU  ; 
exchange4Ca3  :  =  altemat  i  ves  Call  5 
al  t  emat  i  ves  Za.1     :=    alt  emat  i  ves  Ca+1  ]  5 
al ternat i ves Ca+1 1     :=    exchange4Ca]  ; 
count  1  :=  count  1  +  1  ; 
end  ; 
end  ; 
unt  i  1   count  1  =  0  ; 

for  a  :=  1  to  (  numof  alt  emat  i  ves  )   do 
beg  in 

gotoxy  (((5*   a)),  9); 

write  (copy(  al  t  emat  i  ves  Ca]  ,  1 ,  3)  )  ; 
and  ; 

for  a  :=  1  to  (  numof  al  t  emat  i  ves  )   do 
beg  in 

gotoxy  (  (   (  5  *   a  )  )  ,  10   )  5 

■write  (alt  vector  5  Call  :  3  :  £)   ; 
end  ; 

text  background  (  green  )  ; 

for  a  :=  1  to  (  numof  alt  emat  i  ves  )   do 

beg  in 

gotoxy  (  (  5  *  a  )  ,  8  )  ; 

write  (  '    '  )  5 
end  ; 

for  a  :=  1  to  (  numof  alt  emat  i  ves  )   do 
beg  in 

gotoxy  (  (5+  (5*a))  ,9)  ; 

for  bl  :=  1  to    round  (  al t vectors Ca3  *  H3  )     d- 

beg  in 

gotoxy  (  (  C  5  *  a  ) )  , (9  -bl)  )  ; 
write  (  '     ' )  ; 

end  ; 
end  ; 

gotoxy  (£, 11) ; 

text  background  (  14  )   ; 

text co lor  (  blue  )  ; 

write ('  do  you  want  to  modify  the  evaluation  of  the 

alternatives  (y/r\)     ?  '  )  ; 
Repeat 

gotoxy (  65, 11)  ; 

c 1 reo 1  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
until   (  (  answer  =  ' y' )  or  (  answer  =  ' n'  )  )  ; 
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window  (1,1 3, 80, £3  ); 
text  background ( 14)  ; 

if  answer  =  ' y'  then 
beg  in 

clrscr  ; 

goto  ert  ; 
end  ; 
end  5 


alternatives  :=  al  temat  i  vesk  ; 
END  ; 


OVERLAY  PROCEDURE  DIRECTEA  (  VAR   ALTERNATIVES  :  TITLE! 

VSR   ALTVECT0R3  :  VECTORF  ; 


i 


VAR   W  :  INTEGER 

VAR   N0RMVECT0R1  :  VECTORG 

VAR   AX  :  INTEGER  )  ; 


LABEL 

ert 9, telos9x  ; 

CONST 

count  =  3  : 


VAR 


mat  r  i  x£,  result ,  mat  ri  x3  :  array  C1..E0,  1..E03  of  real  ; 

arrayS, al tvectorS, exchanges, al t vectors  :  vectorf  ; 

lamdal , vectorE  :  vectorf  ; 

exchange4  ,  al  temat  i  vesk  :  tit  lei   ; 

t empgrade,  t ernpgradel  :  vectorf  ; 

numof al t ernat i ves, I , count l,xl,yl,al,bl, limit, xE, y£, 

3.3,  b3,  c3,  d3,  h3,  k3,  f3,  p3,  1  :  integer  ; 

score, answer3, integer!, row, 

rowl ,  lamda, ci , ri , cr, count  3  :  real  ; 

st  :  string  [93  ; 

ch     :  char: 


BEGIN 


numof  al  temat  i  ves  :=  w  ; 
case  numof  al  temat  i  ves  of 
1 ,  £,  3,  4,  5,  6,  7   :  begin 

xl  :=  50  ;  yl  :=1£ 
end  5 
8, 9, 10, 1 1        :  begin 

x 1  : =  55  ;  y 1  : =13 
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12,  13,  14,  1 


end  ; 

:  begin 

xl  :=  70  ;  yl  :  =  15  ,• 
end  : 


end  : 


numof  alt  emat  ives  :=  w  ; 

if  numof  alternatives  <>  iZi   then 

beg  in 

window  (l,l,xl,yl); 

text  background (blue)  ; 

cl rscr ; 

window  (xl  +  1,  1, 80, yl )  ; 
text  background (white)  ; 

clrscr  ; 

window  ( 1 , y 1+ 1 , 80 , 23 ) : 
text  back q ro und (14)   ; 
clrscr  ; 

window  (  1,24,88,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (2,1)  ; 

write ('step  4  :  individual  evaluation  of  alternatives)   ; 

gotoxy  (  2, 2  )  ; 

write  (  'method  used  :  direct  input  '  )  ; 

w i  ndow  ( 1 ,  1 ,  x  1 , y 1 )  ; 

text  background  (  blue  )  ; 

text co lor  (  white  )  ; 

gotoxy  (  2,1)  ; 

write  (  '  altsvTi.  Evaluation  :  working  area  '  )  ; 

for  a  :=  1  to  numof criteria   do 

begin 

answer  :=  normvectorl  Call  ; 

delete  (  answer, 4, length (answer )  )  ; 

gotoxy  (  2, a+3)  ; 

write  (   answer: 4  )  ; 
end  ; 

for  a  :=  1  to  numof alt ernat ives   do 
beg  in 

answer  :=  altemat  ives  Call  ; 

delete  (  answer, 4, length (  answer))  ; 

gotoxy  (  9  +  (  5*(a-l)),3)  ; 

write   (  answer  )  ; 
end  ; 

window  (xl+1, 1 , 80, yl ) ; 
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text  background  (white  )  ; 
textcolor(  0  )  ; 
got oxy  (1,1)  ; 

write  (  '     priority  vector  '  )  ; 
for  al  :=  1  to  nurnof  al  temat  i  ves  do 
beg  in 

got oxy  (  £  , 3  +al  ) ; 

write  (copy(  al  temat  i  vesCal  1  ,  1,  18)  )  ; 
end  ; 

for  a  :=  1  to   nurnof  al  temat  i  ves   do 
beg  in 

got oxy (£0, 3  +  a  )  ; 

write  (  chr  (  179  )  )  ; 
end  ; 

for  a  :=  1  to   nurnof  al  temat  i  ves   do 
beg  in 

got oxy (£7, 3  +  a  )  ; 

write  (  chr  (  179  )  )   ; 
end  ; 

window  ( 1, y 1+1 , 80, £3) ; 

text  background ( 14)  ; 

clrscr  ; 

for    a     :=    1    to    nurnof  criteria       do 

beg  in 

if  norm. speci al i red  Then 
begin 

if  specf i le£. normindex CaD  <>  namex    Then 
goto  telos9x  ; 
end  ; 

got oxy  (  £, £)  ; 
write  (  '  •**    evaluate  alternative  according  to 

cr i t er  ia'  ,  normvector  1  Call  ,  '    :  '  )  ; 
for  b  :=  1  to  nurnof  al  temat  i  ves   do 
beg  in 

window  ( 1 , y 1+1 , 80, £3) ; 

text  background ( 14)  ; 

text co lor  (  black  )  ; 

got oxy  (  5, b+3)  ; 

write  (b  .,  '  -   for  alternative   ',  al  temat  i  ves  Cb.l  , 

'   any  value  between  0  and  10   ?   '  )  ; 
X£  :=  76  ;  y£  :=  b  +  3  ;  count 3  :=  0  ;  limit  :=  10  ; 
checknumber  (  answer,  x  1 ,  yl ,  1  irnit ,  count  3  )  ; 
t empgradel Zbl     :=  counts  ; 
window  (l,l,xl,yl); 
text  background  (  blue  )  ; 
text co lor  (  white  )  ; 
got oxy  (  9  +  (  5* (b-1 )), 3+a)  ; 
write  (  t empgradel Cb] : 3 : £  )  ; 
end  ; 
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ert9: 


ternpgrade  :=  ternpgradel  ; 
(*  normilize  vector  ■*) 
row  : =  0  ; 

for  p3  :=  1   to  numofalternat  ives   do 
row  :=  row  +  t  empgrade'Cp33  ; 

for  p3  :=  1  to   numofalternat ives   do 

ternpgrade  Cp3D  :=  t ernpgrade  Cp33  /  row 
window  (  xl  +  1  ,1,30, yl  )  ; 
text  background  (  white  )  5 
text co lor  (  black  )  ; 

for  al  :=  1  to  numofalternat ives  do 
beg  in 

gotoxy  (  £2,.al+  3  )  ; 

write     (    ternpgrade  Cal  1  :  3  :  £    )      ; 
end     ; 

window     ( 1 ,  y  1  + 1 ,  S1Z1 ,  23)  ; 
text  background ( 14)      : 
clrscr     ; 

for  al  :=  1  to  numofalternat ives   do 
beg  in 

gotoxy  (  (   (  5  *   al  ))  ,  10   )  ; 

write  (  copy(  al  temat  ives  Cal  1 ,  1 ,  3)   ) 
end  ; 

for  al  :=  1  to  numofalternat ives   do 
beg  in 

gotoxy  <<   (5*   al  ) )  ,  11   ); 

write  (  ternpgrade  Cal  1  :  3  :  2.    )  ; 
end  ; 


text  background  (  green   )  ; 

for  al  :=  1  to   numofalternat ives    do 

beg  in 

gotoxy  (  (5  +  (  5  *  al  ))  ,3    )  ; 

for  bl   :=  1  to   round   (   ternpgrade  Cal  1     *    10  )    do 
begin 

gotoxy  (  (  (  5  *  al  ))  , (9  -bl)  )  ; 
write  (  '     ' )  ; 

end  ; 
end  ; 

text  background  (  14  )  ; 
text co lor  (  black  )  ; 
gotoxy  (  36, 11)  ; 

write  ('do  you  want  to  modify  the  weights  (y/ri)?    '  )  ; 
repeat 

gotoxy  (  78, 11); 

clreol  ; 

read  (  answer  )  ; 

answer  :=  st upcase (answer )  ; 


until  (  (  answer  =  ' Y' )  or  (  answer  = 


n 


)  ) 
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if  answer  =  ' y'  then 
beg  in 

clrscr  ; 

error  :  =  false  ; 

repeat 

got oxy  (£,  £)  ;' 

clreol  ; 

write  (  'name  of  the  alternative  ?  '  )  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 

for  al  :=  1  to  numof al ternat ives  do 

beg  in 

if  answer  =  al t ernat i ves Cal 1     then 
error  :=  true  ; 

end  ; 
lint  i  1  error  ; 
a  1  :  ~  '3  ; 
repeat 

a  1  :  =  a  1  +  1 
until  answer  =  al t ernat ives Cal 1     ; 
clrscr  ; 

Window  (1, 1, x 1 , y 1 ) ; 

text  background  (  blue  )  ; 

text co lor  (  red  )  ; 

got oxy  (  9  +  <  5* (ai-l )), 3+a)  ; 

write  (  t empgradel Cal 1 : 3 : 2  )  ; 

window  ( 1, yl+1, 80, £3) ; 

t ext background ( 14 )   ; 
t ex tco lor (black  )  ; 
got oxy  (  £,  £)  ; 

write  (  'for  alternative   ',  al t ernat ives Cal 1     , 
'   any  value  between  iZi  and  10      '  )  ; 
X£  :=  76  ;  y£  :=  b  +  3  :  count 3  :=  0  ;  limit  :=  10 

checknumber  (  answer, x 1 , yl ,  1 imit , count  3  )  ; 
t empgradel Cal 1     :=  count 3  ; 

w i ndow  (1,  l,xl,yl)  ; 

text  background  (  blue  )  ; 

text  co 1 or  (  wh  i  t  e  )  ; 

got oxy  (  3    +  (  5* (al-1 ) ) , 3+a)  ; 

write  (  t empgradel Cal 1 : 3 : £  )  ; 

goto  ert9  ; 
end  ; 

for  al  :=  1  to   n  urn  of  alt  ernat  ives    do 
al tmatr i x Ca, al 3  :=  t emp grade Cal 1     ; 
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window  (1, y 1+1, 80, S3) 5 

text  background  (  14  )  ; 
text co lor  (  black  )  ; 
clrscr  ; 
t elos9x : 
end  ; 
end  ; 

END  ; 

INCLUDE  FILE  4-S 

OVERLAY  PROCEDURE  ELECTRE  ; 
TYPE 

scale   =  array  CI. . 43  Of  name  : 

ind     =  array  CI.. 3 1     Of  integer  5 
arayS   =  array  CI.  .5,  1. . 93  Of  real 


VflR 


f  1,  f£,  a,  b,  c,  1  irnit     :     integer     ; 

sum, result, pf actor, 

qf  act  or,  max,  rnin,  count  3     :     real     ; 

d  iscor dance, concordance, 

matr i xdance, matri xcon  :  matrixS0  ; 

outranking  :  array 9; 

criteria  :  vectorg  ; 

cr it value  :  vectorn  ; 

alter  :  titlel  ; 

grading  :  arayl  ; 

gradingwei ght  :  arayS  ; 

index, c ind ex, d index  :  ind  ; 

st 1  :  name  : 


PROCEDURE  WRITEWORKSHEET  ; 
BEGIN 

window  (  1,1,41,12)  ; 

text  background  (  blue  )  ; 

text co lor  (  white  ) ; 

got oxy  (  2,1)  ; 

write  (  '  altem.  Evaluat  ion  :  working  area  '  ) 

for  a  : =  1  ton umo f cr  i  t  er  i  a   d o 
beg  in 

answer  :=  criteriaCaJ  ; 

delete  (  answer, 4, length (answer )  )  ; 

gotoxy  (  5  +  (  4*(a-l)),3)  ; 
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write  (   answer : 4  )  ; 
end  ; 

for  a  :=  1  to  n  urn  of  al  t  emat  i  ves   do 
beg  in 

gotoxy  (  £, a+3)  ; 

answer  :=  alter  Call  ; 

delete  (  answer, 4, length (  answer) ) 

write  (   answer: 3  )  ; 
end  ; 
END  ; 


PROCEDURE  GRADES  ; 
VAR 

base, step  :  real  ; 

BEGIN 

for  a  :  —    1  to  nurnof  criteria  do 
beg  in 

base  :=  critvalueCaJ  *  iiZiiZi  ; 
step  :=  base   /  4  ; 
for  b  :  =  1  to  5  do 

grad ingwei ght Cb, aD  :=  base  —  (  step  *  (  b  -1)  )  ; 
end  ; 
END  ; 


PROCEDURE  WRITEGRADING  ; 
BEGIN 

window  (41,1,80,12)  ; 

text  background  (  white  )  ; 

text eo lor  (  black  )  ; 

gotoxy  (2,1)   ; 

write  (  'grading  scale  '  )  ; 

for  a  : =  1  t o  n umo f cr i t er i a   do 
beg  in 

gotoxy  (  7  +  (  4*(a-l)),3)  ; 

answer  :=  criteriaCa] ; 

delete  (  answer, 4, length (  answer)  )  ; 

write  (   answer: 4  )  ; 
end  ; 

gotoxy (1,4) ; 

text co lor  (  red  )  ; 

write  (  ' weig. : ' )  ; 

For  a  :=  1  to  nurnof  criteria  do 
beg  in 
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gotoxy <    4    +     (    4*a),4)      ; 

write     (    round  <cr  it  value  Ca3*liZiiZi)     )        ; 
end     ; 

textcolort  black  )  5 
gotoxy  (1,6   )  ; 
write   (  ' exce'  )  ; 
gotoxy  (1,7   )  ; 
write  (  ' good'    )  ; 
gotoxy ( 1 ,  3)  ; 
write  (  '  aver''   )  ; 
gotoxy  (  1,9); 
write ('  f air'  )  ; 
gotoxy (1,10)  ; 
write ( ' weak' )  ; 
grades  ; 

for  a  :=  1  to  nurnof criteria   do 
beg  in 

for  b  :=  1  to  5   do 
begin 

gotoxy  (  4  +  <  4*a) ,  b  +  5  )  ; 
write  (  round ( grad ing we i ght Cb, a 3 )  )  ; 
end  ; 
END  ; 


PROCEDURE  GRP.DEPILTERNATIVES  ; 

LABEL 

jmp3  ; 

BEGIN 

window  (  1,13,30,24)   ; 
text  background  (  14  )  ; 
text co lor  (  black  )  ; 
if  norm. special i zed   Then 

grading  :=  specfi leS. grad ing  ; 
For  a  :=  1  to  nurnof  alt  emat  ives  do 
beg  in 

gotoxy  (  2, £)  ; 

write  (  '  ■**  evaluate  alternative  ',  alter  Call  ,  '    :  '  ); 

for  b  :  =  1  to  nurnof criteria   do 

beg  in 

if  norm. special i zed   Then 
begin 

if  specf i le2. norm index Cb]  =  namex   Then 
goto  jmp3  ; 
end  ; 
write  (b  ,'  -  for  criterion  ', criteria CbU ,' any  value 
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between  0  and  ' , round ( grad ingwei ght C 1 , b3 ),'?') ; 
XI  :=  76  ; 
y  1  :  =  b  +  3  ; 
count 3  :=  0  ; 

limit  :=  round (  grad ingwei ght C 1 , bH )  ; 
checknumber  (  answer ,  x  1 ,  yl  ,  1  imit ,  count3  )  ; 
■grading  Ca,  b3  :=  count3  ; 
window  (  1, 1,40, 12)  ; 
text  background  (  blue  ); 
gotoxy(  2  +  (  4*b) , a+3)  ; 
write  (round < grading Ca, bD ) )  ; 
window  (  1,13,30,23)  ; 
text  background  (  14  )  ; 


imp. 


end  ; 
clrscr 


end 
END  ; 


PROCEDURE  FACTORS  ; 
BEGIN 

window  (  1,13,80,23)  ; 

text  background  (  14  )  ; 

c 1 rscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  2, 4)  ; 

write  (  '  **   concordance  threshold  (p)  C0  -  1003   :   '  ) 

gotoxy  (  2, 5)  ; 

write  (  '  <  nb  .  becomes  severe  as  it  approaches  100) ?  ' ) 

XI  :=  70  ;  yl  :=  5  ;  count 3  :=  0  ;  limit  :=  100  ; 

checknumber  (  answer, x 1 , yl , 1 imit , count 3  )  ; 

pfactor  :=  count 3  5 

gotoxy  (  2, 7) 

jcordance  threshold  (q)  C0  -  100:   :   '  ) 


write  (  ' **   d 
gotoxy  (  2, 8) 
wr i t e  ( '  (nb  .  . 
XI  :=  70  5  yl 


becomes  severe  as  it  approaches  100  )?  ' ) 
=  8  ; 

count3  :=  0  ;  limit  :=  100  ; 

checknumber  (  answer, x 1 , yl , limit, counts  )  ; 
q fact or  :=  count 3  ; 
if  ( (specfi le2. pfactor  <>  0)  find 

(specf i le2. Pfactor  (pfactor) )  then 
pfactor  :-  specf i le2. pfactor  ; 
If  ( (specf i le2. q fact or  <>  0  )  find 

(  specf i le2. Q fact or  )  q fact or  )  )  then 
q fact or  :=  specf i le2. q fact or  ; 


Window  (41, 1,80, 12)  ; 
text  background  (  white  )  ; 
text co lor  (  black  )  ; 
gotoxy  (  2,11  )  ; 
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write  Cp  =  '  ,  pf  act  or  :  3  :  2,  '  % 
if  norm. special i zed  Then 
beg  in 


' ,  qf act or : 3 


5Decfile£. pf actor 
specf i le£. qf act or 
specf i le£.  grad  ing 


=  p fact  or 
=  q fact or 
=  grading 


ft 


'2i 


repeat 

a  :  =  a  +  1  ; 
until  (  narnex  =  norm.  Usersnames  Call  )  ; 
specf  i  le£.  Final  index  1  €a.l     z~    true  ; 
wr i tespecf i le  ; 
end  ; 
END  ; 


PROCEDURE  C0MPUTE1  5 
BEGIN 

for    c    s=    1    to    nurnof criteria       do 

beg  in 

if   (  grading  Ca, cl     >=  grading Cb,  cH  )  then 

sum  :=  sum  +  cr it val ue Cc3  ; 
end  5 
if   (a   <>   b  )  then 

concordance Ca, b3  :=  sum  *  100 
else 

concordance Ca, bl     :=  1  ; 
END  ; 


PROCEDURE  COMPUTES  ; 
BEGIN 

for  c  :=  1  to  nurnof criteria   do 
beg  in 

if  (  grading Cb, c]  >  grad ing Ca, c3  )  then 

sum  :=  grad ing Cb,  c3  —  grad ing Ca,  cH  ; 


if 


•esult     <=    sum    )     then 


result     :=    sum     ; 
end     ; 

if        (a        <>        b    )     then 

discordanceCa, bD  : =  result  /  critvalueClH 
else 

d iscordanceCa, bD  :=  1  ; 
END  ; 


PROCEDURE  COMPUTECONC  ; 
BEGIN 

for  a  :=  1  to  nurnof alt ernat ives   do 
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beg  in 

for  b  :  =  1  to  numofalternat ives  do 

beg  in 

sum  :  =  0  ; 
comput el  ; 
end  5 
end  ; 
END  ; 


PROCEDURE  FINTINDEX1  ; 
BEGIN 

for  a  :=  1  to  numofalternat ives   do 

beg  in 

c  :  =  0  ; 

for  b  :=  1  to  numofalternat ives  do 

beg  in 

if  concordance £a, b]  >=  pfactor   then 

c~*  ■  =*  C  "t"  1  * 
c index  Call  :  =  c  ; 
end  ; 
end  ; 
fl  :=  iZi  ; 

for  a  :=  1  to  numofalternat ives  do 
fl  :=  fl  +  c index  Call  ; 
END  ; 


PROCEDURE  COMPUTED I SCONC  ; 
BEGIN 

for  a  :=  1  to  numofalternat ives   do 
beg  in 

for  b  :=  1  to  numofalternat ives  dc 
beg  in 

sum  : =  0  ; 
result  :=  0  ; 
cornpute£  ; 
end  ; 
end  ; 
END  ; 


PROCEDURE  FINTINDEX2  ; 
BEGIN 

for  a  :=  1  to  numofalternat ives   do 
beg  in 

c  :  =  0  ; 

for  b  :=  1  to  numofalternat  ives  d>: 
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beg  in 

if  discordance £a,  bl  <=  qfactor   then 

c  :  =  c  +  1  ; 
d index  Ha]  :=  c  -  1  ; 
end  ; 
end  ; 
fS  :=  iZi  ; 

for  a  :=  1  to  numof alternatives  do 
f£  :=  f£  +  dindexCal  ; 
END  ; 


PROCEDURE  WRITEALT  (van  st  1  :  name  ;  van  matrixcon  :matrix£iZi  ; 

van  index  :  ind  ) ; 

BEGIN 

for  a  :=  1  to  numof alt ernat ives   do 
beg  in 

answer  :=  alterCaU  ; 

delete  (  answer, 4, length (  answer)  )  5 

gotoxy  (  £,  a  +  3)  5 

write  (  answer: 4  )  ; 
end  ; 

for  a  :  =  1  to  numof alt ernat ives   do 
beg  in 

answer  :=  alter  Call  ; 

delete  (  answer, 4, length (  answer)  )   ; 

gotoxy  (5+(a*5>,3); 

write  <  answer : 3  )  ; 
end  ; 

text co lor  (  red  )  ; 

gotoxy  (  5  +  ( (  a+1)  *  5  )  ,  3  )  ; 
write  (  st 1  )  ; 
text co lor  (  black  )   ; 

for  a  :=  1  to  numof alt ernat ives  do 
beg  in 

for  b  :=  1  to  numof a  It ernat ives  do 
begin 

gotoxy  (  5  +  (  b  *  5)  ,  a  +  3  )  ; 
if   (  a  =  b  )  then 
write  (  '-'  ) 
else 

write  (  round  (rnatri  xconCa,  b3  )  )  ; 
end  ; 
end  ; 

text co lor  (  red  )  ; 

for  c  :=  1  to  numof alt ernat ives   do 
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beg  in 

gotoxy  (  5+  (  (b+1)  *  5>  ,  c  + 
write  (  indexCc]  )  ; 
and  ; 

text co I  or  (  black  )  ; 
END  ; 


PROCEDUTE  CONFINT  ; 
BEGIN 

window  (  1,13,80,23)  ; 

text  background  (  14  )  ; 

t  e  x  t  co 1 or  (  b 1 ue  )  ; 

c 1 rscr  ; 

gotoxy  (  £, £)  ; 

write  ('concordance  matrix  '  )  $ 

cornput  econc  : 

f  int  index  .1  ? 

t  ex t  co 1 or  (  black  )  ; 

st 1  :=  ' #ci'  ; 

rnatrixcon  :=  concordance  ; 

index  :=  c index  ; 

writealt  (  st  1  ,  rnatrixcon,  index  )   ; 
t  e  x  t  co 1 or  (  blue  )  ; 


gotoxy 
wr  i  t  e 
gotoxy 

wr  i  t  e 

gotoxy 

write 

gotoxy 

wr  i  t  e 

gotoxy 

write 

Gotoxy 

wr  i  t  e 

gotoxy 

wr  i  t  e 

gotoxy 

wr  i  t  e 

gotoxy 

wr  i  t  e 


38,  £')  5 
-*■*   a  concordance  index  indicates  to  '  )  ; 

j3  ,  jj )      ' 

what  extent  a.ri    option  is  better  than  '  )  ; 

38.4)  ; 

another  in  terms  of  criteria  weights  ' ) ; 

38.5)  ; 

**   the  index  varies  between  C  1Z1  -  100  3  '  )  5 
38,  6  )   ; 

the  higher  the  better    '  )  ; 
38,7)   ; 

'  ,  f  1,  '    indexes  a.r&    >  =   '  ,  round  (pfactor)  )  5 
38,3)  ; 
■**  column  #ci  indicates  the  #  of  indexes  '  )  ; 

38,9  )  ; 

satisfying   p  for  each  option  '   )   ; 
2, 10  )  ; 
'hit  any  key  to  continue  '  )  ; 


read  (  kbd, ch  )  ; 
END  ; 
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PROCEDURE  DISFINT  ; 

BEGIN 

window  (  1,13, S0, £3)   ; 

text background  (  14  ) 5 

clrscr  ; 

text co lor  (  blue  )  ; 

got ox y  (  £,  £)  ; 

write  ('discordance  matrix  '  )  ; 

cornpi.it  ed  i  scone     ; 

fintindex£  ; 

text co lor  (  black  )  ; 


stl  :=  ' #di'  ; 

rnatrixcon     :=    discordance     ; 

index     :=    d index     ; 

writealt  (  stl  ,  rnatrixcon,  index  ) 

text co lor  (  blue  )  5 


gotoxy 

write  < 

gotoxy 

wr  i  t  e 

gotoxy 

wr  i  t  e 

gotoxy 

write 

gotoxy 

wr  i  t  e 

Gotoxy 

write 

gotoxy 

wr  i  t  e 

gotoxy 

write 


40, S)  ; 

**   a  discordance  index  indicates  to  '  5  5 

40.3)  ; 

what  extent  s.rt    option  contains  a  bad  '  )  ; 

40.4)  ; 

element  that  makes  it  un-sat  isf  act ory   '•); 

40. 5)  ;  • 

■**   the  index  varies  between   C  0  -  100  1     '  )  3 
40, S  )   5 

the  lower  the  better  .  '  )  ; 

40.7)  ; 

' , f£, '    indexes  a^e     <  =   ' , qf actor : 3 : £  )   ; 

40.8)  ; 

*•*    column  #ci  indicates  the  #  of  indexes  '   ) 
40,9  )  ; 

satisfying   q  for  each  option  '  )  ; 


gotoxy  (  £,10)  ; 

write  (  'hit  any  key  to  continue  '  )  5 
read  (  kbd, ch  )  ; 
END  ; 


PROCEDURE  C0MPUTE0UTRP1NKING  ; 
BEGIN 

for  a  :=  1  to  numof al ternat i ves  do 
beg  in 

for  b  :=  1  to  numof al ternat i ves  do 
beg  in 

if  (  (  concordance Ca, b]  >=  pfactor  )  and 
(  d iscordanceCa, b]  <=  qfactor  ) 
outranking  Ca,  bD  :=  '  ■*' 
else 


)   then 


=  '  — » 


outranking C a,  b 3  .-      , 
end  ; 
end  ; 

for  a  :=  1  to  nurnof  alt  ernat  i  ves 
outranking Ea, a3  :=  '  — '  ; 
END  ; 


PROCEDURE  OUTFINT  ; 
VflR 

ans  :  name  ; 
BEGIN 

window  (  1,13,80,23)  ; 

text  background  (  14  )  ; 

text  co 1 or  (  blue  )  ; 

clrsor  ; 

got  oxy  (  £,2)  ; 

write  ('outranking  matrix  '  )  ; 

c  o  m  d  u  t  e  o  u  t  r  a  n  k  i  n  g  ; 

t  e x t  co  lor  (  black  )  :, 

for  a  :=  1  to  nurnof alternat i ves   do 

beg  in 

ans  :=  alter  Call  ; 

delete  (  ans, 4, length (  ans)  )  ; 

got oxy  (  £, a  +  3)  ; 

write  (  ans : 4  )  ; 
end  ; 

for  a  :=  1  to  nurnof  alternat  i  ves   do 
beg  in 

ans  :=  alter  Call  ; 

delete  (  ans, 4,  length  (  ans)  )  ; 

got oxy  (  5  +  (  a  *  5  )  ,  3  )  ; 

write  (  ans: 3  )  ; 
end  ; 

for  a  :=  1  to  nurnof  alt  ernat  i  ves  do 
beg  in 

for  b  ;=  1  to  nurnof  al  t  ernat  i  ves  do 

beg  in 

got oxy  (5+(b*5),a  +  3)   ; 


write  (outranking Ca, bU  )  ; 
.d 
end  ; 


end  ; 


text co lor  (  blue  )  ; 

got oxy  (  38, £) 

write  ('■*#  ^r\    outranking  relation  *  is  the   '  )  ; 

gotoxy  (  38, 3) 


write  ('      one 

gotoxy  (  38, 4) 
wr  i  t  e  ( '     and 

Gotoxy  (  38,  5) 


that  satisfies  both  concordance   ' )  ; 
discordance  requirements.  ' ) ; 
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write  ('•**   an   -   indicates  that  there  is   '  >; 
got ok y  (  38, 6  )  ; 

write  ('      no  outranking  relations.   '  )  ; 
Gotoxy  (  2, 10  )   ; 

write  (  'hit  any  key  to  continue  '  )  ; 
read  (  kbd, ch  )  ; 
END  ; 

BEGIN  <*  main  *) 

window  (  1,1, 40, 12)  ; 

text  background  (  blue  )  ; 
clrscr  ; 

window  (41,1,80,12)  ; 

text  background  (  white  )  ; 
c  1  rscr  ; 

window  (  1,  12,  30,  23)  5 
text  background  (  14  )  5 
clrscr  ; 

window  (  1,24,80,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (2,1)  ; 

write  (  'step  4  :  evaluation  of  alternatives  '  )  5 

gotoxy (  2,2)  ; 

write  (  'method  used  :  electre  '  )  ; 

if  (  not  norm. Special i zed  )  then 
begin 

alter  :=  problem. alternatives  ; 

numof a 1 1  ernat  i  ves  : =  prob 1 em. numof a 1 1 ernat  i  ves  ; 

criteria  :=  sol  ut  ion.  norrnvect  or  1  ; 

cr  i  t  va 1 ue  : =  so  1 ut  i  on . norrnvect  or £  ; 
end 
else 
begin 

alter  :=  problem. alt ernat i ves  5 

numof alt ernat i ves  :=  problem. numof alt ernat i ves  ; 
criteria  :=  Specfi  le2.  norrnvect  or  1  ; 
critvalue  :=  Specfi  le2.  norrnvect orS  ; 
end  ; 

wr i t ewoksheet  ; 

writegrading  ; 


gradeal ternat i ves  ; 

factors  ; 

if  norm. special i zed  Then 
beg  in 

b  :=  13  ; 

for  a  : —  1  to  3  do 

beg  in 

if  specfi  le£.  final  indexl  Call   Then 
b  :=  b  +  1  ; 
end  ; 
if  (  b  =  norm.  Nurnof users  )  then 

specf i le£. Elect re. Stat  us  :=  true 
else 

specf i le£. Elect re.  Stat  us  :  =  false  ; 
end  ; 

if  (   (  not  norm. Special i zed  )  or 

(   norm. Special i zed   and   specf i le£. Elect re. Stat  us  3 
then    begin 
repeat 

window  (  1 ,  13,  SiZi,  23)  ; 
text  background  (  14  )  ; 
clrscr  ; 
textcolor(  black  )  ; 


got ox y (  £,  £) 

5 

write  (  » mer 

u  '   )   ; 

gotoxy  (£,4) 

5 

write  (  '  1 . 

Concordance  matrix 

7 

) 

gotoxy (£, 5) 

5 

write  (  ' £. 

Discordance  matrix 

» 

) 

gotoxy (  £,  6) 

write  (  '  3. 

0  u t  ranking  matrix  ' 

) 

5 

gotoxy (  £,7) 

wr  i  t  e  (  '4. 

Modify  thresholds  ' 

) 

; 

gotoxy  (  £,3) 

write  (  '5. 

Exit  electre  '  )  ; 

gotoxy  (  £,10)  ; 

write  (  ' sel 

ection  (1-5)  ?  '  ) 

5 

Repeat 

gotoxy (  30 

,  10)  ; 

clreol  ; 

read  (  answer  )  ; 

until  ((answer  =' 1' )  or     (answer  =  ' £' )  or  (answer  = 
'3' )  or  (answer  =  ' 4' )  or  (answer  =  ' 5' )  )  ; 
if  answer  =  '1'  then 
confint  ; 

if  answer  =  '  £'  then 
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isfint  ; 

if  answer  =  '3'  then 

beg  in 

cornputeconc     5 

computed i scone  ; 

outfint  ; 
end  ; 

if  answer  =  '4'  then 
factors  ; 
unt  i 1  (  answer  =  ' 5'  )  ; 

if  (  not  norm. Special i zed  )   then 
beg  in 

sol ut ion. Electre. Out ranking  : =  outranking  ; 

wr i t esol ut ionf i le  ; 
end 
else 
begin 

specfi le£. Electre. Out ranking  :=  outranking  ; 

•wr  i  t  as  pec  f  i  le   ; 
end  ; 
end  ; 
END  ; 


INCLUDE  FILE  STEP6 


OVERLAY  PROCEDURE  GD5S  ; 
LABEL 

t  e 1 os 1  ; 
TYPE 


names  =  name  ; 

altnamesl  =  array  C 1 ..  £i2iD  Of  names  ; 

alt vector 5  —    array  L"  1 ..  S,  1 ..  SO]  Of  real  ; 

ordinal£  =  array  C1..S0H  Of  integer  ; 

ordinal3  =  a.rr^s.y     CI.. S3  Of  ordinal£  ; 


VAR 


a,  b,  c,  nurnof al t ernat  ives,  result x,  numof  users  ,  xxx  , 
count  ahp,  countelectre,  surna  ,  count  12,  fl  :  integer  ; 
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f  i  lnamel ,  xx,  pruser  1  :  names  ; 

alt vectors  :  array  CI.. S3  of  vectorf  ; 

alt names  :  array  CI.. S3  of  tit  lei  ; 

usersnames  :  nameS    ; 

answers, userx  :  names  ; 

br£, alt vectors, ar£, ar3  :  vectorf  ; 

altnamesS  :  tit  lei  ; 

brl, ordinal  1, arl , ar4,  ind  i vi dual ordinal  1 , 

ind i vidua  1 vector 1  :  ordinals  ; 

ord inal,  ind i vidua 1 ordinal ,  individual vector  :  ordinal  3  ; 

resul t x 1 , result x£  :  real  ; 

weight  :  vectors 1  ; 

ch  :  char  ; 

indexm  :  array  CI.. 3D  Of  char  ; 


PROCEDURE  COMPUTE 1  ; 
BEGIN 

for  b  :=  i  to  numof alternat i ves  do 
beg  in 

suma  :=  0 ; 

for  c  : =  1  to  numof users  do 

beg  in 

ord  i  ria.  11  :  =  ordinal  Cc3  ; 
suma  :=    suma  +  ordinallCb]  ; 
end  ; 

arl CbH  : =  suma  ; 
end  ; 

for  a  :=  1  to   numof al ternat i ves  do 
beg  in 

gotoxy  (  S, a+5  )  ; 
write  (  arl Ca3  ) ; 
end  ; 
END  ; 


PROCEDURE  COMPUTES  ; 
BEGIN 

for  b  :=  1  to  numof al ternat i ves  do 
beg  in 

result xl  :=  0; 

for  c  i—    1  to  numof users  do 

beg  in 

alt vectors  :=  al t vectors Zcl     ; 
result xl  :=  result xl  +  al t vectors Cb3 
end  ; 

ar£ CbU  :=  (  result xl  /  numof users  )  ; 
end  ; 

for  a  :=  1  to   numof al ternat i ves  do 
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beg  in 

gotoxy  (12, a+5  )  ; 

write  (  ar£Ca] :3:S  )  ; 
end  ; 
END  ; 

PROCEDURE  COMPUTES  ; 
BEGIN 

for  b  :  =  1  to  numof al temat  ives  do 
beg  in 

result  x 1  : =  1 ; 

for  c  :=  1  to  numof users  do 

beg  in 

alt vector8  :=  al t vectorG CcJ  ; 
result xl  :=  result xl  *  al t vect orS Cb]  ; 
end  ; 

resultxE'  :=  In  (  result  xl  )   ; 
ar 3 Cb]  ; =  ex  a  (   (  1  /  numof users  )  *  resultxS    )  ; 

for  a  :=  1  to   numof  al  temat  ives  do 
beg  in 

gotoxy  (  IS, a+5  )  ; 

write  (  ar3Ca] :3:£  ) ; 
end  ; 
END  ; 

PROCEDURE  C0MPUTE4  ; 
BEGIN 

for  b  :=  1  to  numof  al  temat  ives  do 
beg  in 

surna  :=  i3 ; 

for  c  :=  1  to  numof users  do 

beg  in 

ordinal 1  :=  ordinal Cc]  ; 

suma  :=   surna  +(  numof  al  temat  ives  —   ordinal lCb3  ) 
end  ; 

ar4Cb3  :=  surna  ; 
end  ; 

for  a  :=  1  to   numof alt ernat ives  do 
beg  in 

gotoxy  (  £4, a+5  )   ; 
write  (  ar4Ca3  )  ; 
end  ; 
END  ; 

PROCEDURE  COMPUTEORDINftL  ; 
BEGIN 

for  b  :=  1  to  numof  a  1  temat  ives  do 
beg  in 

surna  :=  1  ; 

for  c  :=  1  to  (  nurnof  a  1 1  ernat  i  ves  )  do 
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beg  in 

if    alt vectors Lbl      <    al t vector 8 CcD       then 

surna     :=    suma    +•    1     ; 
end     ; 

ordinal ICbH     :=    surna     ; 
end     ; 
END    ; 

PROCEDURE    COMPUTEINDIVIDUPIL  VECTOR     ; 
BEGIN 

for    al     :=    1    to    nurnof  alt  ernat  i  ves    do 
beg  in 

suma     :  =    iZi     ; 

for  bl  :=  1  to  nurnof  alt  ernat  i  ves  do 

beg  in 

if  (  sol ut ion. Electre. Outranking Cal , bl 1     =  ' *' )    then 
surna  :=  surna  +  1  ; 
end  ; 

ind  i  vi  dual  vector  1  Cal  1      :~    surna  ; 
end  ; 
END  ; 

PROCEDURE  C0MPUTEX1  ; 
BEGIN 

for  a  :=  1  to  nurnof  alt  ernat  i  ves  do 
beg  in 

suma  :  =  iZi  ; 

for  b  :=  1  to  nurnof  users  do 

beg  in 

ind ividual vector 1  :=  ind i vidua 1 vector CbD  ; 
suma  :=  suma  +  ind ividual vector  1 Ca3  ; 
end  ; 

gotoxy  (  9, 5+a  )  ; 
write  (  suma  )  ; 
end  ; 
END  ; 

PROCEDURE  C0MPUTEX2  ; 
BEGIN 

for  a  :=  1  to  nurnof  alt  ernat  i  ves  do 
beg  in 

suma  :  =  iZi  ; 

for  b  :=  1  to  nurnof  users  do 

begin 

individual  or d  i  na 1 1  : =  individual or d  i  na 1 C  b  U  ; 
suma  :=  suma  +  ind i vidualord inal 1 Ca3  ; 
end  ; 

gotoxy  (15, 5+a  )  ; 
write  (  suma  )  ; 
end  ; 
END  ; 
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PROCEDURE  WIN1  ; 
BEGIN 

if   norm. Broadcast ing  then 
beg  in 

for  a  :=  1  to  nurnof users  do 
begin 

gotoxy  (  b  *  a  ,  4  )   ; 
write  (  usersnarnesCaD  :  4  )  ; 
end  ; 

gotoxy  (  £,  5)  ; 
text co lor  (red  )  ; 
wr i  t  e  (  '  we  i  g .  : '  )  ; 
For  a  :=  1  to  nurnof  users  do 
beg  in 

gotoxy  (  <S*a)+£,  5)  ; 
write  (  wei  ght  Call  :  3  :  £  )  ; 
end  ; 

text co lor  (  blue  )  ; 

for  a  :  =  1  to   nurnof  al  ternat  ives  do 
begin 

gotoxy  (  £, a+5  )  ; 

write     (    copy  (al  t  narnes£  La.1 ,  1,3)     )  ; 
end     ; 

for    a     :=    1    to    nurnof  users    do 
begin 

alt  vector  8     :=    al  t  vect  or  6  Call     ; 

for    b     :=    1    to    nurnof  al  ternat  ives    do 

begin 

gotoxy  (   (6  *  a)+£  ,  b  +  5  )  ; 
write  (  al  t  vect  orS  CbD  :  3  :  £  .)  ; 
end  ; 
end  ; 
end 
else 
beg  in 

for  a  :=  1  to  nurnof  users  do 
beg  in 

if  (  pruserl  =  user  snames  Call  )  then 
beg  in 

gotoxy  (  S   ,  4  )   ; 
write  (  usersnames  Za.1  : 4  )  ; 
xxx  : =  a  ; 
end  ; 
end  ; 

for  a  :=  1  to   nurnof  al  ternat  ives  do 
beg  in 

gotoxy  (  £, a+5  )  ; 

write  (copy(  al  tnamesS  Call  ,  1 ,  3)  ); 
end  ; 

alt vectorB  :=  alt vect orS [xxx]  ; 
for  b  :=  1  to  nurnof  al  ternat  ives  do 
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beg  in 

gotoxy  (8   ,  b  +  5  )  ; 

write  (  altvectoraCb] :3:S  )  ; 
end  ; 
end  ; 
END  ; 

PROCEDURE  WIN2  ; 
BEGIN 

window  (£6,1,50,16  )  ; 

text  background  (  14  )  ; 

c 1 rscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  £,£  )  ; 

write  (  '  ordinal   ranking  '  )  5 

if  norm. Broadcast ing   then 

beg  in 

for  a  :  =  1  to  nurnof  users  do 
beg  in 

gotoxy  ((  6*a)—£   ,4)  ; 
write  (  usersnames [a] : 4  )  ; 
end  ; 
end 
else 
beg  in 

gotoxy  (  6, 4)  ; 
write  (  usersnames Cxxx]  )  ; 
end  ; 

for  a  :=  1  to  n  urn  of  users,   do 
beg  in 

alt vectors  :=  al t vect or6 Ca3  ;  . 
for  b  :  =  1  to  nurnof  al  t  ernat  i  ves  do 
beg  in 

suma  :=  1  ; 

for  c  :=  1  to  (  nurnof  alt  ernat  i  ves  )  do 

beg  in 

if  alt vectors Lhl      <  alt vectors Cc3   then 
suma  :=  suma  +  1  ; 
end  ; 

ordinal lCbH  :=  suma  ; 
end  ; 

ordinal  Call  :=  ordinal  1  ; 
end  ; 

if  norm. Broadcast ing   then 
beg  in 

for  a  :=  1  to  nurnof  users  do 
begin 

ordinall  :=  ordinal  Call  ; 

for  b  :=  1  to  nurnof  altemat  i ves  do 

beg  in 
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gotoxy  (  6  *  a  ,  b  +  5  )  ; 
write  (  ordinal  1 Zbl     )  ; 
end  ; 

end  ; 


end 


else 
beg  in 

ordinall  :=  ordinal  Ex xx J  ; 

for    b     :=    1    to    nunnof al temat  i ves    do 

beg  in 

gotoxy  (6   ,  b  +  5  )  ; 
wr i  t  e  (  ord  i  na 1 1 C  b ]  )  ; 
end  ; 
end  ; 
END  ; 


PROCEDURE  WIN3  ; 
BEGIN 

window  (51, if 30, IS  )  : 

text  background  (  white  )  5 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  1,2  )  ; 

write  (  '  group  results  '  )  ; 

for  a  :=  1  to  4  do 

beg  in 

gotoxy  ((  S*a),4)   ; 
write  (  ^  r^  ,  a.     )   ; 
end  ; 

for  a  :=  1  to   numofal  temat  i  ves  do 
beg  in 

gotoxy  (  £, a+5  )  ; 

write  (  copy  (al  tnamesS  Call ,  1,3)  )  ; 
end  ; 

if  norm.  Plgregat  ion   then 
beg  in 

computer  1 
computers 
computers 
computer 4 
end 
else 
beg  in 

fl  :=  0  ; 
repeat 

fl   :=  fl  +  1  ; 

case   norm. figregat  ionname  Cf 1 1 
' 2' :   computers 
'  1 '  :   computer  1 
' 4' :   computer4 


is; 


' 3' :   computers  ; 
end  ; 

until  <  fl  >=  4  )   ; 
end  ; 
END  ; 


PROCEDURE  WIN4  ; 
BEGIN 

if   norm. Broadcast ing  then 
beg  in 

for  a  :=  1  to  numof users  do 
beg  in 

gotoxy  (  6  *  a  ,  4  )  ; 
write  (  usersnames  Call  :  4  )   ; 
°r\a     ; 

for  a  :=  1  to   numof al t ernat ives  do 
beg  in 

gotoxy  (  £, a+5  )  ; 

delete  (  alt  namesS  Call  ,  4  ,  length  ( alt  narnesb  Call  )  ) 
write  (  altnamesSCa]   )  ; 
end  ; 

for  a  :=  1  to  numof users  do 
begin 

individual vector  1  :=  i nd ividual vector CaJ  ; 
for  b  :=  1  to  numof alt ernat ives  do 
beg  in 

gotoxy  (  (6  *  a)+£  ,  b  +  5  )  ; 
write  < individual vector 1 Cb3  )  ; 
end  ; 
end  ; 
end 
el  se 
beg  in 

for  a  :=  1  to  numof users  do 
beg  in 

if  (  pruserl  -  usersnames  La.1     )  then 
beg  in 

gotoxy  (6   ,  4  )  5 
write  (  usersnames Ca] : 4  )  ; 
xxx  : =  a  ; 
end  ; 
end  ; 

for  a  :=  1  to   numof altemat  ives  do 
begin 

gotoxy  (  £, a+5  )  ; 
write  (  altnamesGCa]  )  ; 
end  ; 
individual vector  1  :=   ind ividual vector C xxx 1     ; 
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for  b  :=  1  to  nurnof alternat ives  do 
begin 

gotoxy  (6   ,  b  +  5  >  ; 
write  (   ind  ividual  vector  1  CbJ  )  ; 
end  ; 
end  ; 
END  ; 


PROCEDURE  WIN5  ■, 
BEGIN 

window  (£'6,  1,50,  16  )  ; 

text  background  (  14  )   ; 

clrscr  ; 

text co I  on  (  black  )  ■ 

gotoxy  (  2, £  )  ; 

write  (  '  ordinal   rank ink  '  )  ; 

if  norm. Broadcast ing   then 

beg  in 

for    a     :=    1    to    nurnof  users    do 
beg  in 

gotoxy     (    6*a       ,4)      ; 

delete(  usersnames  Call   ,  4  ,  length  ( usersnames  Call )  )  ; 
write  (  usersnames Ca3   ) ; 
end  ; 
end 
el  se 
beg  in 

gotoxy  (6,4)  ; 

delete ( usersnames CxxxH ,  4  , length  ( usersnames CxxxH )    )   ; 
write  (  usersnames Cx xx 1        ); 
end  ; 

for  a  :=  1  to  nurnof users   do 
beg  in 

individual  vector  1  :=  individual  vector  Call  ; 
for  b  :=  1  to  nurnof  alt  emat  ives  do 
beg  in 

surna  :=  1  ; 

for    c    :=    1    to     (    nurnof  a  It  emat  ives    )     do 

beg  in 

if  ind ividual vector 1 CbD  <  ind i vidua  1 vector 1 Cc 1       then 
surna  :=  surna  +  1  ; 
end  ; 

ind i vidualord inal 1 CbU  :=  surna  ; 
end  ; 

indi  vidua  lord  inal  Call  :  =  ind  i  vidua  lord  inal  1  ; 
end  ; 
if  norm. Broadcast ing   then 
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beg  in 

for  a  :=  1  to  nurnof  users  do 
begin 

indi  vidua  lord  inal  1  :=  ind  i  vi  dual  ordinal  Call  ; 

for  b  :=  1  to  nurnof  alt  ernat  ives  do 

begin 

gotoxy  (  £  *  a  ,  b  +  5  )  ; 
write  (  ind ividualord inal 1 Cb3  )  ; 
end  ; 
end  ; 
end 
else 
beg  in 

indi vidua lord inal 1  :=  ind i vidua lord inal Cxxxl  ; 

for  b  :=  1  to  nurnof  alt  ernat  ives  do 

beg  in 


gotoxy  (  S   ,  b  + 


_j 


write  (  ind i vidua lord inal i Zbl     )     ; 

end  ; 
end  5 
END  ; 


PROCEDURE  WIN6  ; 
BEGIN 

window  (51, 1, 80, IS  )  ; 

text  background  (  white  )  ; 

clrscr  5 

text co lor  (  black  )  ; 

gotoxy  (  1,2  )  ; 

write  (  '  group  results  '  )  ; 

gotoxy  (9,4)  ; 

write  (  ' r4'   )   ; 

gotoxy  (  15, 4)  ; 

write  (  ' r 1 '  )  5 

for  a  :=  1  to   nurnof  a  1 1  ernat  i  ves  do 

beg  in 

gotoxy  (  £, a+5  )  ; 

write  (  copy  (al tnames6 CaD  , 1,3)  ) 5 
end  ; 

if  norm. Agregat ion   then 
beg  in 

cornputexl  ; 

computexS  ; 
end 
else 
begin 

for  fl  :=  1   to   4   do 

beg  in 

case   norm. Agregat ionname Cfl 1  of 
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'  1 '  :    compute*  1     ; 

'  4'  :     cornputexE'     ; 


end     ; 


end     ; 
end     ; 
END     ; 


PROCEDURE  WIN7  ; 
BEGIN 

gotoxy  <£,£')  ; 

write  (  '  ordinal   ranking  '  )  ; 

if  norm. Broadcast ing   then 

beg  in 

for    a     :=    1    to    nurnof  users    do 
beg  in 

gotoxy     (      (S*a)+E*,  4)      ; 

write  (  copy  (  usersnarnes  la]  ,  1 ,  3)  ) 
end  ; 

for  a  :=  1  to   nurnof alt ernat i ves  do 
begin 

gotoxy  (  £, a+5  )  ; 

write  (  copy  (al  tnarnesS  Ca]  ,  1,3)  )  ; 
end  ; 
end 
else 
beg  in 

gotoxy  (  6, 4)   ; 
write  (  usersnarnes  Cxxxl  )  ; 
end  ; 

if  norm. Broadcast ing   then 
beg  in 

for  a  :=  1  to  nurnof  users  do 
beg  in 

ordinal  1  :=  ordinal  Call  ; 

for  b  :=  1  to  nurnof  alt  ernat  i  ves  do 

beg  in 

gotoxy  (  (6  *  a)+£  ,  b  +  5  )  ; 
wr  i  t  e  (  or  d  i  nsi  1  1  C  b  1     )   ; 
end  ; 
end  ; 
end 
else 
beg  in 

ordinall  :=  ordinal CxxxD  ; 

for  b  :=  1  to  nurnof alternat  i ves  do 

beg  in 

gotoxy  (6   ,  b  +  5  )  ; 
end  ; 
END  ; 
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PROCEDURE  WINS  ; 
BEGIN 

window  (51,1,80,16  )  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

gotoxy  (  1,2  )  ; 

write  (  '  group  results  '  )  ; 

for  a  :=  1  to  4  do 

beg  in 

gotoxy  (  6*a   ,4)  ; 

wr  i  t  e  (  ^  r1  ^  a.    )  ; 
end  ; 

for  a  :=  1  to   nurnof  al  t  ernat  i  ves  do 
beg  in 

gotoxy  (  2, a+5  )  ; 

write  (  copy  (a  1 1  namesS  Ca.l ,  1,3)  )  ; 
■and     ; 

if  norm. Agregat ion   then 
beg  i  n 

computer 1  ; 
cornputer4  ; 
end 
else 
beg  in 

for  fl  :=  1   to   4   do 
beg  in 

case    norm. Agregat ionname Cf ID     of 
' 1* :    computer 1  ; 
' 4' :   computer 4  ; 
end  ; 
end  ; 
end  ; 
END  ; 

PROCEDURE  WIND0W1  ; 
BEGIN 

window  ( 1 , 17, 80, £3  )  ; 

text  background  (  blue  )  ; 

clrscr  ; 

text  co 1 or  (  white  )  ; 

gotoxy  (  £,  £)  ; 

write  (  ' rl  :  sum  of  ranks  '  )  ; 

gotoxy  (£,3)  ; 

write  (  ' r£  :  additive  ranking  ' )  ; 

gotoxy  (  40, £)  ; 

write  (  ' r3     :  multiplicative  ranking  '  )  ; 

gotoxy  (  40, 3)  ; 

write  (  ' r4  :  sum  of  outranking  relations  '  ) 

gotoxy  (  £,5)  ; 
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text co lor  (  red  )  ; 

write  (  'hit  any  key  to  continue  '  )  ; 
read  (  kbd  ,  ch  )  ; 
END  ; 


BEGIN  <*  MAIN  *) 

pruserl  :=  namex  ; 

nurnof  altemat  i ves     :=    problerna.  Nurnof al temat  i ves     ; 

nufflof  users     :=    norm.  Nurnof  users     ; 

usersnames  :=  norm. Usersnames  ; 

weight  :=  norm. Weight  ; 

alt vectors  Lai     :=  sol ut ion. Ah  p. flit vector  1  ; 

altnamesS  :=  sol  ut  ion.  Al  temat  i  ves  ; 

b  :=  iZi  ; 

for  a  :=  1  to  nurnof  users  do 

beg  in 

userx  :=   norm. Usersnames CaU : 

filnamel  : -  concat  (  prob 1 name, '.', Userx  )  ; 


if  exist  (  filnamel  ) 


then 


b  :=  b  +  1 


end  ; 


count  ah  p  :  =  i3  ; 
count elect re  : =  0  ; 

if   b  <  nurnof  users   then 
beg  in 

clrscr  ; 

writeln  (  'the  solutions  are  not  completed  '  ) 
end  ; 

if  b  =  nurnof  users  then 
beg  in 

for    a  :=  1  to  nurnof  users   do 
beg  in 

userx  :=  usersnames  Call  ; 

filnamel  :=  concat  (  problname, '.', Userx  )   ; 

pruser  :=  filnamel  ; 

if   exist  (  pruser  )   then 

beg  in 

readsol ut ionf i le  ; 

if  (  so lut ion. Ah  p. St  at  us  )  then 

begin 

countahp  :=  countahp  +  1  ; 

altvectorSCaJ  :=  sol ut ion. Ahp. Alt vector  1  ; 
altnames6  :=  sol  ut  ion.  al  temat  i  ves  ; 
Alt vector 3  :=  al t vector 6 [a3  ; 
end  ; 

if  (  sol ut ion. Elect re. St at  us  )  then 
beg  in 
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count elect re  :=  count elect re  +  1  ; 
compute ind  ividual vector  ; 

individual vector Ca]  :=  ind ividual vector 1  ; 
altnamesS   :=  sol  ut  ion.  fll  ternat  i  ves  ; 
end  ; 
end  ; 
end  ; 

if  count  ah  p  =  nurnof  users   then 
begin 

for  a  :=  1  to  nurnof  users   do 
beg  in 

alt vectors  :=  al t vectors CaD  ; 

for   b  :=  1  to  nurnof  al  ternat  i  ves  do 

alt  vectors  Lbl     :=  alt  vectors  Zbl     *  weight  Call  ; 
alt  vector  6  Call  :=  alt  vectors  ; 
end  ; 

window  (1,  1,25,  IS  )   ; 
text  background  (  14  )   ; 
clrscr  5 

window  (£6,1,50,16  )  ; 
text  background  (  14  )  ; 

clrscr  ; 

window  (51,1,80,16  )  ; 
text  background  (  white  )  ; 
clrscr  ; 

window  (1,17,80,23  )  ; 
text  background  (  blue  )  ; 
clrscr  ; 

window  ( 1 , £4, 30, £5  )  ; 
text  background  (  white  )  ; 
clrscr  ; 

text co lor  (  black   )  ; 
got oxy  (  S, 1 )  ; 

write  (  '  step  5  :  computation  of  group  decision   '  )  ; 
got oxy  (  £, £)  ; 

write  Call   the  solutions  have  computed  with  ahp  '  )  ; 
window  (1,1, £5, 16  )  ; 
text  background  (  14  )  ; 
text co lor  (  blue  )  ; 
c 1 rscr  ; 

got  oxy  (  1,2  )  ; 

write  (  '  alt.  Cardinal  rankings  '  )  ; 
w  i  n  1  ; 
w  i  n2  ; 
w  i  r\3    ; 
wind owl  ; 
end  ; 
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if  count elect re  =  numof users   then 
beg  in 

for  a  :=  1  to  nurnof users   do 
beg  in 

alt  vector  8  :=  alt  vectors  Call  ; 

for   b  :=  1  to  numof a  1 1 ernat i ves  do 

altvectoraCbH  :=  al t vectors Zbl     *  weight  Hal  ; 
altvectorSCa]  :=  alt vector 8  ; 
end  ; 

window  (1,1,25,16  )  ; 
text  background  (  14  )  ; 
clrscr  ; 

window  (£6,1,50,16  )  ; 
text  background  (  14  )   ; 
clrscr  ; 

window  (51,l,8!2i,16  )   ; 
text  background  (  white  )  5 
clrscr  ; 

window  (1,17,80,23  )  ; 
text  background  (  blue  )  ; 

c 1 rscr  ; 

window  (1,24,80,25  )  5 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black   )   ; 

got oxy  (  2,1)   ; 

write  (  '  step  5  :  computation  of  group  decision   '  ) 


got oxy  (2,2)  ; 

write  ('all  the  solutions  have  computed  with  electre' ) 5 
window  (1, 1,25, 16  )  5 
text  background  (  14  )   ; 
t  e  x  t  co 1 or  (  b 1 ue  )  5 
clrscr  ; 

got  oxy  (  1,2)  ; 

write  (  '  alt.   Individual  rankings  '   )  ; 
win4 
win5 
win6 

windowl  ; 
end  ; 


count  12  :=  0  ; 

for  a  :=  1  to  numof users  di 

beg  in 

userx  :=  usersnames  Call  ; 
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filnarnel  :  =  concat  (  problnarne,  '  .  '  ,  Userx  )  ; 

pruser  :=  filnarnel  ; 

read  so 1 ut i  on  file  ; 

if  sol ut ion. Ah  p. St at  us  then 

beg  in 

indexmCa]  :=  ' a' ; 

count  12  :=  count  12  +  1  ; 
end 
else 
beg  in 

if  sol ut ion. Elect re. Stat  us   then 

beg  in 

indexmCaU  :=  '  e'   ; 
count  12  :=  count  12  +1  ; 

end 

else 

indexrn  Call     :  =    '  n'      ; 

end     ; 
and     ; 

if  count  12  <  nurnof users  then 
beg  in 

window  (  1,1,80,25)  ; 

text co lor  (  14  )  ; 

clrscr  ; 

gotoxy  (  2,3)  ; 

text  co 1  or  (  blue  )  ; 

write  ('the  solutions  a.t^&    not  completed  '  )  ; 

gotoxy  (  2,4)  ; 

write  (  '  hit  a.r<y    key  to  return  to  main  menu  '  )  ; 
read  (  kbd, ch  )  ; 
goto  telosl  ; 
end 
el  se 
beg  in 

for  a:=  1  to  nurnof users  do 
beg  in 

if    indexrn  CaD     =    'a'     then 
beg  in 

alt  vector  8     :=    alt  vectors  Call     ; 

for    b     :  =    1    to    nurnof  alt  emat  ives    do 

beg  in 

suma     :=    1     ; 

for    c     :=    1    to     (    nurnof  alt  emat  ives    )     do 

beg  in 

if  al tvectorflCbl  <  alt vectors Lcl       then 
suma  :=  suma  +  1  ; 
end  ; 

ordinal  1 Cb3  :=  suma  ; 
end  ; 
ordinal  Call  :=  ordinall  ; 
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end 
else 
beg  in 

ind  i  vidua  1  vector  1  :=  individual  vector  Call  ; 
for  b  :=  1  to  nurnof  alternat  i  ves  do 
beg  in 

surna  :=  1  ; 

for    c     :=    1    to     (    nurnof  alternat  i  ves    )     do 

beg  in 

if  individual vectorl CbH  < 
ind ividual vector 1 Lcl     then 
surna  :=  surna  +  1  ; 
end  ; 

i  nd  ividual  or  d  i  na.  1  1  C  b  1     :  =  surna  ; 
end  ; 

ordinal CaD  :=   indi vidual ordinal  1  ; 
end  ; 
end  ; 

window  (1,  1,25,  16  )  ; 

text  background  (  14  )  ; 

clrscr  ; 

window  (£6, 1,50, 16  )  ; 

text  background  (  14  )  ; 

clrscr  ; 

window  (51, 1, 88, 16  )  ; 

text  background  (  white  )  ; 

clrscr  ; 

window  (1,17, 80, £3  )  ; 

text  background  (  blue  )  ; 

clrscr  ; 

window  (1,24,80,  £'5  )  ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black   )  ; 

gotoxy  (2,1)   ; 

write  ('step  5  :  computation  of  group  decision   '  ) 

gotoxy  (  2, 2)   ; 

write ('the  solutions   have  computed  with  elect re  or 

ahp  ' ) ; 
window  (1,1,25,16  )  ; 
text  background  (  14  )  ; 
t  e  x  t  co 1 or  (  blue  )   ; 
clrscr  ; 

win7 ; 
w  i  n&    ; 

wind owl  ; 
end  ; 

window  (1,1,80,25)   ; 
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telosl : 

end  ; 
END  ; 


INCLUDE  FILE  DIRLIST1 

PROCEDURE  DIRLIST  : 
TYPE 

Charl£arr  =  array  C  1.  .  IE"  1     of  Char; 

String£0   =  stringC  £0  ]  ; 

RegRec  =  record 

AX,  BX,  CX,  DX,  BP,  SI, 

DI , DS, ES, Fl ags  :  Integer; 

end  ; 

VAR 

Regs  :  RegRec; 

DTA  :  array  C  1..43  1     of  Byte; 

Mask  :  Charlc'arr; 

NarnR     :     String£0; 

Error, I  :  Integer; 


BEGIN 

FillChar (DTA, SizeOf (DTA) , 0) ;      -C  Initialize  the  DTP 

buffer) 
Fi 1 IChar (Mask, SizeOf (Mask) , 0) ;     -C  Initialize  the  mask  > 


Fil  IChar  (NarnR,  Si  zeOf  (NarnR)  ,  0)  ; 


Wr i t eLn ; 

UJRITELN; 

Regs. AX  :=  *1A00; 

Regs. DS  :=  Seg (DTA) ; 

Regs. DX  :=  Ofs(DTA) ; 

MSDos(Regs) ; 

Error  : =  0 ; 

Mask  :=  '????????. GN?' ; 


■   S4E00; 

=  Seg (Mask) ; 

=  Ofs(Mask) ; 


Regs. AX 

Regs. DS 

Regs. DX 

Regs. CX 

MSDos(Regs)  ; 

Error  :=  Regs. AX  and  $FF ; 


■C  Initialize  the  file 
name) 


-C  Function  used  to  set  the  DTA  > 
{.    store  the  parameter  segment  in 

DS  > 
■C   offset  in  DX  > 
■C  Set  DTA  location  > 

-C  Use  global  search  > 

-C  Get  first  directory  entry  > 
•C  Point  to  the  file  Mask  > 

<  Store  the  option  > 
■C  Execute  MSDos  call  > 
-C  Get  Error  return  > 
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I  :=  1;  <    initialize  'I1  to   the  first 

element  > 
if  (Error  =  iZD  then 
repeat 

NarnRCi:  :=  Chr  (Mem  CSeg  (DTP)  :  Of  s  ( DTA)  +29+1 1  )  ; 
I  :=  I  +  1; 
until  not  (NarnRCi -11     in  C  '  .  .  '  "*'  :  )  or  (I>£iZi); 


NamRC0:  :=   Chr(I  — 1);  -C  set  string  length  because 

assigning  > 
■C  by  element  does  not 
set  length} 
while  (Error  =  iZO  do 
beg  in 

Error  :  =  i2i  ; 

Regs.  AX  :=   $4Fi30;  -C  Function  used  to  get  th« 

next  > 

-C  d  i  r  e  c  t  o  r  y  e  n  t  r  y  > 
Regs.  CX  :=  ££;  <.    Set  the  file  option  > 

MSDos<  Regs  );  -C  Call  MSDos  > 

Error  :=  Regs.  AX  and  $FF;    <  get  the  Error  return  > 
I  :=  1; 
repeat 

NarnRCi:  :=  Chr  (Mem  CSeg  (DTA)  :  Of  s  (DTA)  +23+1 1  )  ; 
I  :=  I  +  1 ; 
until  not  (NamRCI-i:  in  C  »  .  .  '  **"  1     )  or  (I  >  E'iZi)  ; 
NarnRCi:  :=  Chr  (1-1)  ; 
if  (Error  =  tZi )  THEN 

WriteLn(  '   '  ,  NarnR)  ; 
end 
END  ; 


INCLUDE  FILE  FILES 


PROCEDURE  QPENFILE  (  var       pmame  :  name  )  ; 

BEGIN 

assign  (  problemfile  ,  pmame  )  ; 
rewrite  (  problemfile  )  ; 
with    problerna   do 
beg  in 

narnel     :=    pmarne     ; 

numof  alternat  i  ves     :  =    i3     ; 

nurnof  users     :  =    iZi     ; 

levels     :=    0     ; 
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f  i  1  lchar  (  level  1,  si  zeof  ( level  1 )  ,  «Zi > 

f  i  1  lchar  ( level£,  si  zeof  ( 1  eve  IE')  ,  0) 

f  i  1  lchar  (  level 3,  si  zeof  (  level3)  ,  iZi) 

f  i  1  lchar  ( level  4,  si  zeof  ( level  4)  ,  0) 

f i 1 lchar  ( level 5, si  zeof ( level 5) , 0) 

f i 1 lchar  ( level 6, si  zeof ( level 6) , 0) 

f i 1 lchar  ( level 7, si  zeof ( level 7) , 0) 

f i 1 lchar  (sub level  1 , si zeof (sub level  1 )  ,  0)  ; 

f i 1 lchar  (sub level 2, si zeof (sub level 2) , 0) ; 

f  i  1  lchar  (alternat  i  ves,  si  zeof  (alternat  i  ves)  ,  0)  ; 
end  ; 

write  (  problernfile  , 
close  (  problernfile  ) 


problerna  ) 


END 


PROCEDURE  QPENSOLUTIQNFILE  (  var-       pruser 


name  ) 


BEGIN 


assign  (  sol ut ionfi le,  pruser  )   ; 
r  ewr i  t  e  (  so 1 ut  i on file  )  ; 
with  solutiona   do 
beg  in 

ahp. Numof tries   :=  0  ; 

elect  re.  Numof  tries       :=    0     ; 

nurnofal temat  i ves     :=    0     ; 

numof cr it er ia     :=    0     ; 

f i 1 lchar (ahp. Al t vector 1 , si  zeof (ahp. ft It  vector  1 ) , 0)  ; 

username  : =  '  '   ; 

user  id    :=  '  '   ; 

f i 1 lchar (alternat  i ves, si  zeof (alternat  i ves)  ,0)  ; 

f i 1 lchar (normvector 1 , si zeof (normvectorl )  ,  0)  ; 

elect re. St at  us  :=  false  ; 

f i 1 lchar (elect  re. Outranking, 

si  zeof (elect re.  Outranking )  ,  0)  ; 


end  ; 

write 
close 


(  sol ut ionfi le 
(  sol ut  ionfi le  ) 


;ol  ut  iona    ) 


END 


PROCEDURE    OPENNORMFILE     (    var       norrnname 


name 


BEGIN 

assign  (  norrnfile  ,  norrnname  ) 
rewrite  (  norrnfile  )  ; 

with  norma   do 

beg  in 


nurnof  users     : 

:=  0  ; 

mod  i  f yt  imes    : 

i=  0  ; 

lastt  ime       : 

:=  0  ; 

agregat  ion     ! 

=  false 
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nai             : 

:  = 

false 

* 

special i  zed    : 

as 

false 

5 

broadcasting 

— 

false 

5 

mod i  f v          : 

= 

false 

5 

f i 1 Ichar  (usersnames, sizeof (usersnames) , 0) ; 

f  i  1  lchar  (spec index,  si  zeof  (spec index  )  ,  0)  ; 

f  i  1  lchar  (  users  ids,  si  zeof  (users  ids)  ,  iZi)  ; 

fillchar  (weight  , si zeof ( wei ght ) , 0)       ; 

fillchar  (current  name,  si  zeof  (current  name)  ,  0)  ; 

f i 1 lchar  (agregat  ionname, sizeof (agregat  ionname) , 0)  ; 
end  ; 

write    (  norrnfile  , norma  )  ; 
close  (  norrnfile  )  ; 
END  ; 

PROCEDURE  OPENSPECFILE   (  var       pruser3  :  name  )  ; 


BEGIN 


assign  (  sp 
rewrite  (  s 
with  specfi 
beg  in 

n  urn  of  use 
pfactor 
qf act or 
f i  1  lchar 
f i 1 lchar 
f i 1 lchar 
f i 1 lchar 
f i 1 lchar 
f i  1  lchar 
fillchar 
fillchar 
fillchar 
f i  1  lchar 
f i 1 lchar 
f i  1  lchar 
f i 1 lchar 
numof cri 
numof alt 
for  a  :  = 
beg  in 


ecf i le, pruser3  ) 
pecf i le  )   ; 
lei   do 


rs  : =  0  5 

:=  0  ; 
:=  0  5 

(vector 1 , si  zeof ( vector 1 )  ,  0) 

(vectorE, si zeof (vect or£)  ,  0) 

(vector3, si  zeof ( vect or 3)  ,  0) 

(vector 4, si zeof ( vect or 4 )  ,  0) 

(vectors, si  zeof (vect or 5)  ,  0) 

(vect or 6, sizeof (vect orS)  ,  0) 

(vect or 7, si  zeof (vect or 7) , 0)  ; 

( normvect  or£, s  i  zeof ( normvect  orS ) , 0 )  ; 

( normvect  or 1 , s  i zeof ( normvect  or  1 ) , 0 )  ; 

( norm  index, s  i  z  eo  f ( norm index) , 0)  ; 

(al t emat  i  ves,  si  zeof  (alter nat  i  ves)  ,  0) 

(alt  mat  r  i  x  ,  si  z eo f  (  a  1 1  mat  r  i  x  )  ,  0  )   ; 

( grading,  si  zeof ( grad  ing ) , 0)      ; 
t  er  i  a     : =    0     ; 
emat  i  ves     :  =    0     ; 

1     t  o    3    d  o 


solved Ca3  :=  false  ; 

final  index CaD  :=  false  ; 

final  index  1 CaD  :=  false  ; 
end  ; 

completed   :=  false  ; 
completedall   :=  false  ; 
ahp. status  :=  false  ; 
Fi 1 lchar (ahp. alt vect or 1 , si  zeof (ahp.  al t vect or 1 )  ,  0)  ; 
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ahp. numof tries  :=  i3  ; 

electre. status  :=  false  ; 
e 1 ect  re . n  umo ftries  :=  0  ; 

Fi  1  Ichar  (electre.  outranking,  si  zeof  (electre.  outranking  )  ,  0) 
End  ; 

write  (  specfile  ,  specfilel  )  ; 

close  (  specfile  )  ; 
END  ; 


INCLUDE  FILE  UTILITIES 
PROCEDURE  DISKDflTfl  ; 

BEGIN 

repeat 

window  (1, 1, 40, 12)  ; 

text  background  (  blue  )  ; 
clrscr  ; 

window  (41,1,80,12)  ; 
text  background  (  blue  )  ; 
clrscr  ; 

window  (1,13,80,23)  ; 
text  background  (  14  )  ; 
clrscr  ; 

window  (  1,24,80,25)  ; 

text  background  (  white  )  ; 

clrscr  ; 

text  co  lor  (  black.  )  ; 

got oxy  (  2,1)   ; 

write  (  string  128  )   ; 

got oxy (2,2)  ; 

write  (  '  files  related  to  the  problem  '  )  ; 

window  (1,1,40,12)  ; 

text  background  (  blue  )  ; 

text co lor  (  white  )  ; 

got oxy  (  2, 2)  ; 

write  (  '  names  of  problems  :  '  )  ; 

d  ir 1 ist a  5 

window  (41,1,80,12)  ; 

text  background  (  blue  )  ; 

text co lor  (  white  )  5 

got oxy  (  2, 2)  ; 

write  (  '  names  of  norm   :  '  )  : 
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d  ir 1 ist  ; 

window  (1,13,80,23)  ; 

text  background  (  14  )   ; 

text co lor  (  black  )  ; 

got  ox y  (  3,2)   ; 

write  ('do  you  want  to  see  a  predefined  norm  (y/ri) 

XI  :=56  ;  yl  :=  2  ; 

identify  (  answer, xl,yl  )  ; 

if  answer  =  ' y'  then 

begin 

xl  :=3  ;  yl  :=3  ; 
normse 1 ect  i  on  ( x 1 , y 1 )  ; 
di splay norm  ; 

end  ; 
unt  i 1  answer  =  ' n'   ; 
clrscr  ; 
repeat 

window  (1,  1,43,  IS)  ; 

text  background  (  blue  )  ? 

clrscr  ; 

window  (41,1,30,  12)  ; 
text  background  (  blue  )  ; 
clrscr  ; 

window  (1,13,80,23)  ; 
text  background  (  14  )  ; 
clrscr  ; 

window  (  1,24,80,25)   ; 

text  background  (  white  )  ; 

clrscr  ; 

text co lor  (  black  )  ; 

got oxy  (  2,1)  ; 

write  (  string  128  )  ; 

g  o  t  o  x  y  ( 2 ,  2 )   ; 

write  (  '  files  related  to  the  problem  '  )  ? 

window  (1,1,40,12)  ; 

text  background  (  blue  )  ; 

t  e x  t  co 1 or  (  wh  i  t  e  )  ; 

got  oxy  (  2,2)  ; 

write  (  '  names  of  problems  :  '  )  ; 

d  ir 1 ista  ; 

window  (41, 1, 80, 12)  ; 

text  background  (  blue  )  ; 

text co lor  (  white  )  ; 

got oxy  (  2, 2)  ; 

write  (  '  names  of  norm   :  '   )   : 
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d  ir 1 ist  ; 

window  (1,13,80,23)  ; 

text  background  (  14  )  ; 

text co lor  (  black  )  ; 

got oxy  (  3, 2)   ; 

writeCdo  you  want  to  see  a  predefined  problem  (y/n)  ?' 

XI  : =  56  ;  y 1  : =  2  ; 

identify  (  answer, x 1 , yl  )  ; 

if  answer  =  ' y'  then 

begin 

got oxy  (  3, 3)  5 
repeat 

clreol  ; 

write  (  '  name  of  problem  ?   '  )  ; 
Read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
answer  :=  concat  (  answer, ' . ' , ' Def )  ; 
until  (  exist  (  answer  ) ) 5 
pmame  :=  answer  5 
readprobl emf i le  ; 

window  (1,1,80,7  )   ; 
text  background  (  blue  )  ; 

c 1 rscr  ; 

text co lor  (  white  )  ; 

got oxy  (2,1)  ; 

write  (  'name  of  problem  :  ',  problem. Name  1  )  5 

got oxy  (  2, 2  )   ; 

write  (  'alternatives  :  '  )  ; 

for  a  :=  1  to  problem.  Numof alt emat  ives  do 

begin 

got oxy  (  2, a+2  )  ; 

write  (  problem.  Alt  emat  ives  [a3  )  5 
end  ; 

window  (  1,8,  80,  25  )  ; 
text  background  (  blue  )  ; 
clrscr  ; 
got oxy  (2,1); 
write  (  'criteria  :  '  )  ; 
display  (  problem  )       ; 
got oxy  (  2, 17  )  ; 
text co lor  (  red  )  ; 

write  (  'hit  any  key  to  continue  '  )  ; 
read  (  kbd  , ch  )  ; 
text co lor  (  white  )  ; 
end  ; 
unt  i 1  answer  =  ' n'   ; 

END  ; 
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PROCEDURE  DISKSTQTU5  : 


BEGIN 

diskdata 
END  ; 


PROCEDURE  REflDl  : 
BEGIN 
repeat 

gotoxy  (  £,  £)  ; 

clreol  ; 

write  ('  the  name  of  the  problem   ? 

Read  (  answer  )  ; 

specname  :=  concat  (  answer, ' . Spc' )  ; 

delete  (  answer  ,3, length (  answer)  )  5 

omarne     :=    concat     (     answer,  '  .  Def      )  5 

problname  :=  answer  ; 
until  exist  (prname  )  ; 
END  ; 

PROCEDURE  REQDg  ; 
BEGIN 
repeat 

gotoxy  (  2, 4)   ; 

clreol  ; 

write  ('  the  name  of  the  norm  ?    '   ) 
Read  (  answer  )  ; 

delete  (  answer  ,8, length (  answer)  )  ; 
answer  :=  stupcase  (  answer  )  ; 
norrnname   :=  concat  (  answer,  '  .  Gn'  )  ; 
until  exist  (norrnname  )  ; 
END  ; 


PROCEDURE  READ3  ; 
BEGIN 

gotoxy  (  £,6  )  ; 

write  (  '  your  name  ?     '  )  ; 

Error  :=  false  ; 

repeat 

gotoxy  (  IS, 6)  ; 

clreol  ; 

read  (  narnex  )  ; 

namex  :=   stupcase  (  narnex  )  ; 

for  a  :=  1  to   norm. Numof users  do 

begin 

if    narnex    =    norm.  Usersnames  Call     then 
error     :=    true     ; 
end     : 
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urit  i  1  (  error  )  ; 

b  :=  1Z1  ; 

repeat 

b  :=  b  +  l  ■ 
until  (  namex  =  norm.  Usersnarnes  CbH  )  ; 
str  (b,  inte)  ; 

answer  :=  concat  (  '  .  '  ,  Narnex  )  5 
pruser  :=  concat  (  problname,  answer)  ; 
pruser3  :=  concat  (  problname, '. spc' )  ; 
END  : 


PROCEDURE  REQD4  ; 
BEGIN 

gotoxy  (  £',  3  )  ; 

write  (  '  your  id  ?   '    )   ; 

If   (  norm. Users ids CbD  =  '  x'   )     'zn&n 

beg  in 

gotoxy  (  IS, 3)  ; 
read  (  ldx)   ; 
idx  :=  stupcase  (  idx  )  ; 
norm. Users ids CbH  :=  idx  ; 
end 
else 
beg  in 
repeat 

gotoxy  (  16,  3)  ; 
clreol  ; 


read  (idx  )   ; 
idx  :=  stupcase  (  idx  )  ; 
until  (  idx  =  norm. Users ids Zbl     )      ; 


end  ; 
END  : 


PROCEDURE  READS  ; 
BEGIN 

gotoxy  (  £,  10  )  ; 

write  ('  the  method  that  you  want  to  use   ?   '   )   ; 

Repeat 

gotoxy  (  49, 10)  ; 
clreol  ; 

read  (met hod x  )  ; 

met hod x  :=  stupcase  (  met hod x  )  ; 
until  ((  methodx  =  ' ahp' )  or  (  methodx  =  ' electre' ) 
or  (  methodx  =  'direct' )   )  ; 
END  : 
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PROCEDURE  DATA  : 

BEGIN 

window  (  1,  £4,  80,  £5)  ; 
text  background (wh  i te) 
text co lor  (  black  )  ; 

gotoxy (  £,  1 )  ; 
c 1 reo 1  ; 

write  (  string  128  )  ; 
gotoxy (£, £) ; 
write  (  stringl£9  ); 
window  (  1,13,80, £3)  ; 
text  background  (  14  )  ; 
clrscr  ; 
readl  ; 
read£  ; 

readnormf  i  le  ; 
read 3  ; 
read 4  ; 
END  ; 


INCLUDE  FILE  PROCED 


FUNCTION  STUPCflSE  (st  :  name  )  :  name  ; 
VAR 

I  :  integer  ; 
BEGIN 

for  I  :=  1  to  length (st)  do 

st C i  1     :~    upcase (st C i 1 )  ; 

stupcase  : =  st  ; 
END  ; 


FUNCTION  EXIST  (filename  :  name  )  :  boolean  ; 
VftR 

f  i 1  :  file  ; 
BEGIN 

assign  (  fil  ,  filename  )   ; 

<*i-> 

reset  (  fil  )  ; 

-C$i  +  > 

exist  :=  (  ioresult  =  0  )  ; 
END  ; 


PROCEDURE  WAIT 


BEGIN 

got oxy (50, £4) ;  write (  'hit  any  key  to  continue  '  ) ; 
read (kbd, ch ) 
END  ; 
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PROCEDURE  CLEflRl  (  var   problem 
BEGIN 

for  a  :=1  to  5  do 

problem. Level  1 Zal     :=  '  ' 
END  ; 


easel  ) 


PROCEDURE  CLEflRSCREEN  (var    line  :  integer  )  ; 
BEGIN 

if  line  =  19  then 
begin 

gotoxy (1,4)  ; 

for  e  :=  1  to  10  do 

del  1 ine  ; 
1 ine  :=  9  ; 
end  ; 
END  ; 

PROCEDURE  CLEAR  (  var  rnatrix£  :  level  )  ; 

BEGIN 

for  line  :=  1  to  5  do 
beg  in 

for  a  :  =  1   to  5  do 

mat r i x£ C 1 ine, a]  :=  '  ' 
end 
END  ; 

PROCEDURE  CONVERT  (var    answers  :  ask  ;var    w,dl  :  integer  )   ; 
BEGIN 

if  (  answerSCwl  <>  ' 1' )  and   (  answer £ Cw 3  <>  ' £' ) 


and 
and 


(  answerSCw]  <>  '  31  )  and  (  answerSCw]  <>  '4'  ) 


(  answerSEw]   <> 


) 


then 


case 

7  J1 

1    pi 
I — 

'  3' 
'  4' 


dl  :=  0 
answerE'  CwH 
dl 
dl 
dl 

dl  :=  4 
dl 


of 


end 
END  ; 


PROCEDURE   IDENTIFY   (   var   answer   :   name 
integer  )   ;  BEGIN 
repeat 

gotoxy (xl, yl ) 5 
c 1 reo 1  ; 

read  (  answer  )  ; 

answer  :=  stupcase  (  answer  )  ; 
unt  i 1  (  (  answer  =  ' y'  )  or  (  answer  =  ' n'  )  ) 
END  ; 


;  var   x 1 , yl 
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PROCEDURE  CHECKNUMBER  (  var  answer  :  name  ; 

vat"  xl,yl,  limit  :  integer  ; 
var       count3  :  real   )  ; 
BEGIN 
repeat 

got ox y  (  x 1 ,  y 1 )  ; 
clreol  ; 

read   (  answer  )  ; 
val  (  answer, count3, codel )  ; 
until  (  (codel  =  0)  and  (count  3  <=  limit)  and  (count3  >=  (3)  )  ; 
END  ; 


PROCEDURE  S0RT1  (  var    normvectorl  :  vectorg  ; 

var  normvect or£  :  vectorn  ; 
var    numof criteria  :  integer  )  ; 
BEGIN 
repeat 

count  :  =  1Z1  ; 

for  a  :=  1  to  numof criteria   do 

beg  in 

if  normvector£  Call  <  normvector£  Ca+1 1       then 
beg  in 

exchangee.'  C a 3     :=  normvect  or£  Call  ; 
normvect  or£ Ca3  : =  normvect  orS  Ca+ 1 ]  ; 
normvect or£ Ca+1 1     :=  exchanges Ca J  ; 
exchangel  Call  :=  normvect or  1 Ca3  ; 
normvectorl Ca3  :=  normvect or 1 Ca+1 1     ; 
normvectorl  Ca+1  ]  :=  exchangel  Call  ; 
count  :=  count  +  1  ; 
end  ; 
end  ; 
unt  i  1   count  =  OS     ; 
END  ; 


PROCEDURE  l-JRITENQRMFILE  ; 
BEGIN 

assign  (  normfile  ,  norrnname  ) 

reset  (  normfile  )  ; 

norma  : =  norm  ; 

write  (  normfile  , norma  )  ; 

close  (  normfile  )  ; 
END  ; 


PROCEDURE  URITEPROBLEMFILE  : 
BEGIN 

assign  (  problemfile  ,  prname  )  ; 

reset  (  problemfile  )   ; 
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problema  :=  problem  ; 
write  (  problemfi le, problema  )  ; 
close  (  problemfi le  )  ; 
END  ; 


PROCEDURE  REflDPRQBLEMFILE   ; 
BEGIN 

assign  (  problemfi  le  ,  pmarne  )  ; 

reset  (  problemfi le  )  ; 

read  (  problemfi le  ,  problema  )  ; 
problem  :=  problema  ; 
close  (  problemfi le  )  ; 
END  ; 


PROCEDURE  REPDNQRMFTLE  ; 
BEGIN 

assign  (  normf  i  le  ,  normname  )  ; 

reset  (  normf ile  )  ; 

read  (  normf ile  ,  norma  )  ; 

norm   : =  norma  ; 

close  (  normf ile   )  ; 
END  ; 


PROCEDURE  REflDSOLUTIQNFILE  ; 
BEGIN 

assign  (  solutionfile  ,  pruser  )  ; 

reset  (  solutionfile  )  ; 

read  (  solutionfile  ,  solutiona  )  ; 

so 1 ut i  on  : =  so 1 ut i  ona  ; 

close  (  solutionfile   )  ; 
END  ; 


PROCEDURE  REP.DSPECFILE  ; 
BEGIN 

assign  (  specfile  ,  pruser 3  ) 

reset  (  specfile  )  ; 

read  (  specfile  ,  specfilel  ) 

specfileiS  :  =  specfilel   ; 

close  (  specfile  )  ; 
END  ; 
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PROCEDURE  UIRITE5QLUTIQNFILE  ; 
BEGIN 

assign  (  solutionfile  ,  pruser  )  ; 

reset  (  so 1 ut  i  on file  )  ; 

so 1 ut  i  ona  : =  so 1 ut  i  on  ; 
wr i  t  e  ( so 1 ut  i  on  file, so 1 ut  i  ona  )  ; 
close  (  solutionfile   )  ; 
END  ; 


PROCEDURE  HRITE5PECFILE  ; 
BEGIN 

assign  (  specfile  ,  pruser 3  ) 

reset  (  specfile  )  ; 

specfilel  :=  specfile£   ; 

write  (specf i le, specf i lei  )  s 

close  (  specfile   )  ; 
END  : 
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APPENDIX  B 
FIGURES  OF  SCENARIO  1 


NflME  OF  THE  GROUP  NORM  ?  select  frigates 

1.  IDENTIFICATION  OF  GROUP  MEMBERS 

1. 1  Nuaber  of  Group  Members  (  MAX  3  )       ?  3 

-  Name  of  Member   #  1             ?  useri 

-  Name  of  Member   #2             ?  user2 

-  Name  of  Member   #3             ?  user3 

1.2  ID  of  Member  Al                  ?  xl 

2.  GROUP  DECISION  TECHNIQUES 

2.1  Weighted  Majority  Ruie  : 

-  EGUflL  Weights  (Y/N)               ?  y 

2.2  Collective  Evaluation  Mode 

Choose  one  of  the  two  roodes  : 

(1)  Each  group  member  will  evaluate  alternatives 

according  to  all  criteria 

(2)  Each  group  member  will  evaluate  only  alternatives 

according  to  his  exclusive  area  of  expertise 

Enter  selection  ?   2 

The  name  of  the  sroblem  ?  ships 

-  Name  of  user  for  criteria  WEAPONS  :     userl 

-  Name  of  user  for  criteria  ELECTRONICS  :  user2 

-  Name  of  user  for  criteria  ENGINE  :     user3 

-  Name  of  user  for  criteria  ECONOMICAL  :   user3 

2.3  Automatic  Selection  of  Techniques  of 

Aggregation  of  Preference  (Y/N)         ?  y 

2.3  Automatic  Computation  of  NAI  (Y/N)       ?  y 

3.  INFORMATION  EXCHANGE 

3.1  Broadcasting  of  individual  outputs  (Y/N)  ?  y 

3.2  Permission  to  Modify  Individual  Analyses 

AFTER  Group  analyses  (Y/N)            ?  y 

3.2.1  How  Many  Tiraes  (MAX  18  )         ?  9 

3.3  Time  Limit  to  Submit  Individuals  Results  : 

3.3.1  How  Many  Days  (MAX  14  )          ?  7 

3.3.2  Hours  (  1:00  to  24:00  )         ?  13:80 

STEP  2  :  GROUP  NORM  DEFINITION 

Figure  4.  Group  Norm  Definition 
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NAME  OF  PROBLEM  :  SHIPS 

ENTER  THE  ALTERNATIVES   :       1.  type  1 

2.  type  2 

3.  type  3 

4.  q 

ENTER  THE  CRITERIA      : 

1.  weapons 

1. 1  air-crafts 

1.2  guns 

1.3  missiles 

1.3.1  ssra 

1.3.2  sara 

1.4  a/s  weaDons 

2.  electronics 

2. 1  radar 

2.1.1  surveillance 

2.1.2  fire  control 

2.1.3  navigation 

2. 2  sonar 

3.  engine 

3. 1  performance 

3.2  rnaint.ance 

4.  cost  related 

4.1  technical  support 

4.2  life  cycle 

4.3  cost  of  operation 

4. 4  cost 

4.5  q 

STEP  1  :  .MULTIPLE  CRITERIA  GROUP  PROBLEM  DEFINITION 

Definition  of  criteria  *  Dst  level  2)nd  level  3)nd  level  Q)uit 

.......             .                               i 

Figure-  5.  Step  1  Group  Problem  Definition 
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NAMES  OF  PROBLEMS  :               NAMES  OF  NORM  : 
SHIPS. DEF                      NORMSH.GN 

THE  NAME  OF  THE  PROBLEM  ?   ships 

THE  NAME  OF  THE  NORM  ?   nomsh 

YOUR  NAME  ?  userl 

YOUR  ID  ?   xl 

THE  METHOD  THAT  YOU  WANT  TO  USE  ?         ahp 

STEP'  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Identification  of  the  problem  Methods  :  AHP  or  DIRECT 

Figure  £  User  1  /  Problem  Initiation 
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PAIRUISE  COMPARISON 


i€AP0 

ELECT 

ENGIN 

ECONO 

IERPQ 

1.20 

2.00 

2.50 

ELECT 

0.83 

1.95 

2.40 

EN6IN 

9.50 

0.51 

1.90 

ECONO 

0.40 

0.42 

0.53 

PRIORITY  VECTOR 

WEAPONS 

tf.  566 

ELECTRONICS 

0.305 

ENGINE 

0.183 

ECONOMICAL 

0. 146 

**  LflMDA  MAX  =  4. 00 

CONSISTENCY  INDEX  =  3.  M 

RANDOMIZED  INDEX  =  0.90 

CONSISTENCY  RATIO  =  9.  '30 


D 


□ 


WEA  ELE  ENS  ECO 
3.37  3.30  0.18  0.14 
DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA 


(Y/N) 


STEP  3  :  PRIORITIZATION  OF  EVALUATION 
Method  :  AHP 


CRITERIA 


Figure    7.     User    i     / 


Prioritization  of  Evaluation 

at  the  First  Level 


Cr  i"cer  la 
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PAIRUISE  COMPARISON 


AIR-C 

GUNS 

MISSI 

a/s  u 

flIR-C 

1.70 

1.20 

1.20 

GUNS 

0.59 

0.56 

0.59 

MISSI 

0.83 

1.80 

1.10 

A/S  'A 

0.83 

1.70 

0.91 

PRIORITY  VECTOR 

AIR-CRAFTS 

0.307 

GUNS 

0.181 

MISSILES 

0.256 

A/S  WEAPONS 

0.256 

**  LAMDA  MAX  =  4. 31 

CONSISTENCY  INDEX  =  3.  ,20 

RANDOMIZED  INDEX  =  3.90 

CONSISTENCY  RATIO  =  0.00 


AIR    MIS    A/S    GUN 
0.30  0.25  0.25  0.18 
DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION    CRITERIA 
Method  :  AHP 


Figure    8.     User    1     /    Prioritization    of    Evaluation    Criteria 

at    Level    £    For    Criteria    1. 1    to    1.4 
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PAIRWISE  COMPARISON 


SSM      SAM 

SSM 

1.38 

SAM 

9.77 

PRIORITY  VECTOR 

ESI 

3.435 

SAM 

0.565 

SSM    SAM 
0.43  8.56 
HIT  ANY  KEY  TO  CONTINUE 


STEP  3  :  PRIORITIZATION  OF  EVALUATION    CRITERIA 
Direct  input  of  criteria  weights 


rig are    3.     User     1     /    Prioritization    of    Evaluation    Criteria 

at    Level    3    for    Criteria    1.3. 1    and     1.3, 
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PRIORITY  VECTOR 

WEAPONS 

0.400 

ELECTRONICS 

0.400 

ENGINE 

0.130 

ECONOMICAL 

0.370 

Una 


WEA  ELE  ENG  ECO 
0.40  0.40  0.13  0.07 
DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  GF  EVALUATION  CRITERIA 
Direct  input  of  criteria  weights 


igure  18.  User 


/  Prior  it  izati^ 
for  Level  1 


m  of  Evaluation  Criteria 
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PRIORITY  VECTOR 

RADAR 

0.500 

SONAR 

0.500 

uu 


RAD  SON 
3.50  0.50 
DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Direct  input  of  criteria  weights 


Figure  11.  User 


/  Prioritization  of  Evaluation  Criteria  at 
Level  £  for  Criteria  £« 1  and  £.  £ 


is; 


PRIORITY  VECTOR 

SURVEILLANCE 

0.408 

FIRE  CONTROL 

0.400 

NAVIGATION 

0.200 

SUR    FIR    NOV 
0.40  0.40  0.20 
DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION    CRITERIA 
Direct  input  of  criteria  weights 


Figure    12.     User    £    /    Prioritization    of    Evaluation    Criteria 

at    Level    3    for    Criteria    £.1.1    to    £.  1.; 
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PRIORITY  VECTOR 

WEAPONS 

0.500 

ELECTRONICS 

0.350 

ENGINE 

0.100 

ECONOMICAL 

9.050 

UDD 


WEA  ELE  EN6  ECO 
0.50  0.35  0.10  0.05 
]  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N) 


STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Direct  input  of  criteria  weights 


Figure  13.  User  3  /  Prioritization 

at  Level  1 


of  Evaluation  Criteria 
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PRIORITY  VECTOR 


PERFORMANCE 
MAINTANCE 


0.488 
0.688 


mi    PER 
8.68  0.48 
]  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION    CRITERIA 
Direct  input  of  criteria  weights 


igure    14.     User    3    /    Prioritization    of    Evaluation    Criteria    at 

Level    £    for    Criteria    3. 1     and    3.2 


198 


PRIORITY  VECTOR 

TECHNICAL  SUPPORT  0.400 
LIFE  CYCLE       3. 109 
COST  OF  OPERATION  9.490 
COST           0. 109 

i 
i 

UnUn 

TEC  LIF  COS  COS 
0. 49  0. 10  0. 40  0. 19 

DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 

STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Direct  input  of  criteria  weights 

1 

i 

Figure  15.  User 


3  /  Prioritization  of  Evaluation  Criteria  at 
Level  2.    for  Criteria  4.  1  To  4.  4 
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THE  FINAL  CRITERIA  (  15)  AND  THEIR  WEIGHTS  ARE  : 

1.  SONAR               :  0. 19      12.  TECHNICAL  SUPPORT 

2.  AIR-CRAFTS           :  0. 13      13.  COST  OF  OPERATION 

3.  A/S  WEAPONS           :  0.11      14.  LIFE  CYCLE 

4.  MAINTANCE            :  0.08      15.  COST 

5.  GUNS                :  0.08 

6.  SURVEILLANCE          :  0.08 

7.  FIRE  CONTROL          :  0.08 

8.  SAM                :  0.06 

9.  PERFORMANCE           :  0.05 

10.  SSM                :  0.05 

11.  NAVIGATION           :  3.34 

0.03 
0.03 
0.01 

0.01 

DO  YOU  WANT  TO  REDUCE  THE  NUMBER  OF  THE  CRITERIA  (Y/N)  ?    Y 

STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Determine  the  ntunber  of  the  criteria 

^_^__ _ ^— _ 

higure    16.     Final    Weights    of    Evaluation    Criteria 


E'iZiiZi 


i 

THE  FINAL  CRITERIA  (  5)  AND  THEIR  WEIGHTS  ARE  : 

1.  SONAR               :  0.32 

2.  AIR-CRAFTS           :  9.22 

3.  A/S  WEAPONS           :  0. 19 

4.  NAINTANCE            :  0.13 

5.  SUNS               :  0.13 

DO  YOU  WANT  TO  CHANSE  THE  NUMBER  OF  THE  CRITERIA  (Y/N)  ?         N 

STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Determine  the  number  of  the  criteria 

Figure  17.  The  Reduced  Set  of  Criteria 
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PAIRUISE  COMPARISON 


TYP1 

TYP2 

TYP3 

TYP1 

1.10 

1.20 

TYP2 

0.91 

1.10 

TYP3 

0.33 

0.91 

PRIORITY  VECTOR 

TYPE  1 

0.365 

TYPE  2 

0.331 

TYPE  3 

0.304 

**  LAMDA  MAX  =  3.08 

CONSISTENCY  INDEX  =  0.30 

RANDOMIZED  INDEX  =  3.58 

CONSISTENCY  RATIO  =  0. 00 


TYP1  TYP2  TYP3 
0.36  0.33  0.30 


DO  YOU  WANT  TO  MODIFY  THE  DATA  (Y/N)  ?  N 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 

Evaluation  of  alternatives  According  to  Criterion  SONAR      AHP 


Figure    18.     User    £    /    Evaluation    of    the    Alternatives    According 
to    Criteria    Sonar     (AHP) 
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i 

PfllRWISE  COMPARISON 

PRIORITY  VECTOR 

TYPl   TYP2 

TYP3 

TYPl         1.20 

0.83 

TYPl           0.330 

TYP2   0.33 

0.77 

TYP2          0.275 

TYP3   1.20   1.30 

TYP3          0.3% 

**  LAMDA  MAX       =  3. 00 

CONSISTENCY  INDEX  =3.00 

RANDOMIZED  INDEX   =0.58 

CONSISTENCY  RATIO  =0.00 

nri 

1 

rY2 

1 

rY3 

0.40  0.33  0.27 

DO  YOU  WANT  TO  MODIFY  THE  DATA  (Y/N)  ? 

STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 

Evaluation  of  Alternat 

ives  According  to  Criterion  AIR-CRAFTS  AHP 

Figure  19. 


User  i  /  Evaluation  of  Alternative* 
Criterion  Air-Crafts  (AHP) 


Accord  inn  to 


£03 


PAIRWISE  COMPARISON 


TYPE 

TYPE 

TYPE 

TYPE 

0.91 

0.91 

TYPE 

1.18 

1.00 

TYPE 

1.10 

1.30 

PRIORITY  VECTOR 

TYPE  123 

0.313 

TYPE  234 

0.344 

TYPE  1.2.3 

0.344 

**  LfiMDfl  MAX  =3.30 

CONSISTENCY  INDEX  =  -0.30 

RANDOMIZED  INDEX  =  3.58 

CONSISTENCY  RATIO  =  -0.30 


TYP    TYP    TYP 
0.34  3.34  3.31 


DO  YOU  WANT  TO  MODIFY  THE  DATA  (Y/N)  ? 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Evaluation  of  Alternatives  According  to  criterion  GUNS 


Figure    £0.     User    1     /    Evaluation 
Criteria    Guns     (AHP) 


if    Alternatives    According    to 
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ALTERN. EVALUATION  :  WOWING  AREA 


SON 
AIR 
A/S 

mi 

SUN 


TYPl  TYP2  TYP3 
6.08  8.00  7.00 


PRIORITY  VECTOR 

TYPl 

0.29 

TYP2 

0.38 

TYP3 

0.33 

TYPl  TYP2  TYP3 
0.29  3.38  0.33 


Do  you  want  to  modify  the  weights  (Y/N)  ? 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Direct  input 


Figure  £1. 


User  £  /  Evaluation  of  alternatives  According  to 
Criterion  Sonar  (DIRECT) 
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ALTERN. EVALUATION  :  WORKING  AREA 

TYP1  TYP2  TYP3 
SON 
AIR 
A/S 

MAI      8.30  7.30  7.38 
GUN 


PRIORITY  VECTOR 

TYP1 

3.36 

TYP2 

0.32 

TYP3 

3.32 

TYP    TYP    TYP 
0.36  3.32  3.32 


Do  you  want  to  nodify  the  weights  (Y/N)  ? 


STEP  A  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Direct  input 


higure    ££.     User    1     /    Evaluation    of    alternatives    According    to 
Criterion    Maintance     (DIRECT) 
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FINAL  SOLUTION 


TYP1  TYP2    YP3 
0.33  8.32  0.34 

HIT  ANY  KEY  TO  CONTINUE 


STEP  6  :  COMPUTATION  OF  GROUP  DECISION 
Final  Result  (  AHP  )  -  Specializes  mode 


Figure    £3.     Final    Group    Solution    of    the    Problem 
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APPENDIX  C 
FIGURES  FOR  SCENARIO 


NAME  OF  THE  GROUP  NORM  ?  select  1 

1.  IDENTIFICATION  OF  GROUP  MEMBERS 

1. 1  Number  of  Group  Members  (  MAX  3  )       ?  3 

-  Name  of  Member   #  1             ?  userl 

-  Name  of  Member   #  2             ?  user 2 

-  Name  of  Member   #3             ?  user3 

1.2  ID  of  fember  USER1                ?  xl 

2.  GROUP  DECISION  TECHNIQUES 

2.1  Weighted  Majority  Rule  : 

-  EQUAL  Weights  (Y/N)               ?  n 

-  WEIGHT  for  USER1              ?  3 

-  WEIGHT  for  USER2              ?  3 

-  WEIGHT  for  USER3              ?  4 

2.2  Collective  Evaluation  Mode 

-  Choose  one  of  the  following  modes  : 

(1>  Each  group  member  will  evaluate  alternatives 

according  to  all  criteria 

(2)  Each  group  raember  will  evaluate  only  criteria 

according  to  his  exclusive  area  of  his  expertise 

Enter  a  number  ?  1 

2.3  Automatic  Selection  of  Techniques  of 

Aggregation  of  Preference  (Y/N)         ?  y 

2.4  Automatic  Computation  of  NAI  (Y/N)       ?  y 

3.  INFORMATION  EXCHANGE 

3.1  Broadcasting  of  individual  outputs  (Y/N)  ?  y 

3.2  Permission  to  Modify  Individual  Analyses 

AFTER  Group  analyses  (Y/N)            ?  y 

3.2.1  How  Many  Times  (MAX  18  )         ?  4 

3.3  Time  Limit  to  Submit  Individuals  Results  : 

3.3.1  How  Many  Days  (MAX  14  )          ?  7 

3.3.2  Hours  (  1:08  to  24:«0  )         ?  12:88 

STEP  2  :  SROUP  NORM  DEFINITION 

Fig  ure  £4 .  Gro u p  Norm  De f  i  n  i  t  i  on 
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NAME  OF  PROBLEM  :  SHIPS 

ENTER  THE  ALTERNATIVES   :       1.  type  1 

2.  type  2 

3.  type  3 

4.  q 
ENTER  THE  CRITERIA      : 

1.  weapons 

2.  electronics 

3.  engine 

4.  cost  related 

5.  q 

STEP  1  :  MULTIPLE  CRITERIA  GROUP  PROBLEM  DEFINITION 
Definition  of  criteria  *  l)st  level  2)nd  level  3)nd  level  Q)uit 

Fig ure  £5 .   1  Bro u p  Pro blern  Definiti on 
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SHIPS. DEF                      NORMSH.GN 
SELECT. DEF                    SELECT1.6N 

THE  NAME  OF  THE  PROBLEM  ?   select 

THE  NAME  OF  THE  NORM  ?   select  1 

YOUR  NAME  ?  userl 

YOUR  ID  ?   xl 

THE  METHOD  THAT  YOU  WANT  TO  USE  ?         aho 

STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Identification  of  the  problem  Methods  :  AHP  or  DIRECT 

Figure  £6.  User  1  /  Problem  Initiation 
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PAIRWISE  COMPARISON 


WEAPO 

ELECT 

ENGIN 

COST 

WEAPO 

1.00 

1.60 

1.99 

ELECT 

1.08 

1.60 

1.30 

EN6IN 

0.63 

0.63 

1.40 

COST 

0.53 

0.53 

0.71 

PRIORITY  VECTOR 

WEAPONS 

0.317 

ELECTRONICS 

0.317 

ENGINE 

0.198 

COST  RELATED 

0.167 

**  LAMBDA  MAX  =  4.31 

CONSISTENCY  INDEX  =  d.M 

RANDOMIZED  INDEX  =  0.30 

CONSISTENCY  RATIO  =  0. 30 


WEA    ELE    EN6    COS 
0.32  0.32  0.20  0.17 
DO  YOU  WANT  TO  MODIFY  THE  EVALUATION  OF  THE  CRITERIA  (Y/N)  ? 


STEP  3  :  PRIORITIZATION  OF  EVALUATION    CRITERIA 
Method  :  AHP 


Figure    £7.     User     1     /       Prioritization    of    Evaluation    Criteria     (AHP) 
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THE  FINAL  CRITERIA  (  4)  AND  THEIR  WEIGHTS  ARE  : 

1.  WEAPONS             :  0.32 

2.  ELECTRONICS           :  8.32 

3.  ENGINE              :  0.20 

4.  COST  RELATED          :  0. 17 

YOU  HAVE  TWO  METHODS  : 

1.  DEFINE  THE  NUMBER  OF  THE  CRITERIA  THAT  YOU  WANT  TO  USE 

2.  DEFINE  THE  SUM  (%)   THAT  YOU  WISH 

METHOD  THAT  YOU  WISH  (1  OR  2)  ? 

STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Determine  the  nunber  of  the  criteria 

Figure  £8.  User  1  /   Final  Weights  of  Evaluation  Criteria 
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THE  FINflL  CRITERIA  (  3)  AND  THEIR  WEIGHTS  ARE  : 

1.  WEAPONS              :  0.38 

2.  ELECTRONICS           :  0.38 

3.  ENGINE               :  0.24 

1 

DO  YOU  WANT  TO  CHANGE  THE  NUMBER  OF  THE  CRITERIA  (Y/N)  ?         n 

STEP  3  :  PRIORITIZATION  OF  EVALUATION  CRITERIA 
Deteraine  the  rniaber  of  the  criteria 

FIGURE  £9.  USER  1  /   THE  REDUCED  SET  OF  CRITERIA 
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ALTERN. EVALUATION  :  WORKING  AREA 


WEA 
ELE 
EN6 


TYP    TYP    TYP 

9.00  7.00  9.00 
9.00  9.00  7.00 

8.00  8.00  9.00 


PRIORITY  VECTOR 

TYPE  1 

0.32 

TYPE  2 

0.32 

TYPE  3 

0.36 

TYP    TYP    TYP 
0.32  0.32  8.36 


Do  you  want  to  Modify  the  weights  (Y/N)  ? 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Method  used  :  Direct  Input 


Figure    3iZ>.     User    1     /     Individual    Evaluation    of    Alternatives    Using 
Direct    mode 
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FINAL  SOLUTION 


uuu 

TYP    TYP    TYP 
0.34  0.33  0.33 


HIT  ANY  KEY  TO  CONTINUE 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Final  Result 


Figure    31.     Solution    of    User    1     (    With    Direct    Mode    ) 
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rtLTERN. EVALUATION  :  WORKING  AREA 

GRADING  SCALE 

WEA  ELEEN6 

HEA  GLEBE 

TYP  32  38  18 

Ueig.:  38  38  24 

TYP  28  38  21 

TYP  31  31  16 

Exce  38  38  24 
Good   29  29  18 
Aver   19  19  12 
Fair   18  18  6 
Weak   8  8  8 
P  =  55.88  %    Q  =  55.89  i 

MENU 

1.  CONCORDANCE  MATRIX 

2.  DISCORDANCE  MATRIX 

3.  OUTRANKING  MATRIX 

4.  MODIFY  THRESHOLDS 

5.  EXIT  ELECTRE 

SELECTION  (1-5)  ? 

STEP  4  :   EVALUATION  OF  ALTERNATIVES 

Method  used  :  ELECTRE 

Fi  gur« 


User  1  /  Evaluation  of  Alternatives  Using  Elect re 
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CONCORDANCE  MATRIX 

#* 

A  Concordance  index  indicates  to 

TYP  TYP  TYP 

#CI 

what  extent  an  option  is  better  than 

TYP   -   76   62 

2 

another  in  terms  of  criteria  weights 

TYP   62   -   24 

1 

** 

The  index  varies  between  [  8  -  100  3 

TYP   38  76  - 

1 

the  higher  the  better  . 
4  indexes  are  >  =  55 

** 

Column  #CI  indicates  the  #  of  indexes 
satisfying  P  for  each  option 

DISCORDANCE  MATRIX 

« 

A  Discordance  index  indicates  to 

TYP  TYP  TYP 

IDI 

what  extent  an  ODtion  contains  a  bad 

TYP   -   3   3 

C 

element  that  flakes  it  un-satisfactory 

TYP   11   -   3 

2 

« 

The  index  varies  between  [0-100 

TYP   5   13   - 

2 

the  lower  the  better  . 
6  indexes  are  (  =  55.00 

**. 

Column  #CI  indicates  the  #  of  indexes 
satisfying  Q  for  each  option 

OUTRANKING  MATRIX 

** 

An  Outranking  relation  *  is  the 

TYP  TYP  TYP 

one  that  satisfies  both  concordance 

TYP   -   *   * 

and  discordance  requirements. 

TYP   * 

« 

An  -  indicates  that  there  is 

TYP   -   *   - 

no  outranking  relations. 

STEP  4  :  EVALUATION  OF  ALTERNATIVES 

Method  used  :  ELECTRE 

Figure  33.  User  1  /  Concordance, Discordance, Outranking  Matrix 
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flLTERN. EVALUATION  :  WORKING  AREA 

TYP  TYP  TYP 

UEA 

7.00  5.00  6.00 

ELE 

7.00  8.00  5.00 

EN6 

7.00  9.00  7.00 

PRIORITY  VECTOR 

TYPE  1 
TYPE  2 
TYPE  3 

0.30 

0.39 

0.30 

TYP    TYP    TYP 
0.30  0.39  0.30 


Do  you  want  to  modify  the  weights  (Y/N)  ? 


STEP  4  :   INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Method  used  :  Direct  input 


Figure    34.     User2    /     Individual    Evaluation    of    Alternatives    Using 

Direct    Mode 


£18 


FINAL  SXUTION 


TYP    TYP    TYP 
0.35  8.34  0.33 

HIT  ANY  KEY  TO  CONTINUE 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Final  Result 


Figure    35.     Solution    of    User    £     (    With    Direct    Mode    ) 
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ALTERN. EVALUATION  :  WORKING  AREA 

GRADING  SCALE 

UEA  ELE  ENG 

WEA  ELE  ENG 

TYP  31  29  16 

Ueig.:  38  38  24 

TYP  27  32  22 

TYP  30  25  17 

Exce   38  38  24 

Good   29  29  18 

Aver   19  19  12 

Fair   10  10  6 

teak  0  0  0 

P  =  55.80  %    Q  =  55.00  % 

MENU 

1.  CONCORDANCE  MATRIX 

2.  DISCORDANCE  MATRIX 

3.  OUTRANKING  MATRIX 

4.  MODIFY  THRESHOLDS 

5.  EXIT  ELECTRE 

SELECTION  (1-5)  ? 

Figure  36.  User  2  /  Evaluation  of  Alternatives  Using  Elect re 
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CONCORDANCE  MATRIX 

**  A  Concordance  index  indicates  to 

TYP  TYP  TYP 

#CI 

what  extent  an  option  is  better  than 

TYP   -   38   76 

1 

another  in  terms  of  criteria  weights 

TYP   62   -   62 

2 

»  The  index  varies  between  E  8  -  108  ] 

TYP   24   38   - 

e 

the  higher  the  better  . 
3  indexes  are  >  =  55 
**  Column  #CI  indicates  the  #  of  indexes 
satisfying  P  for  each  option 

DISCORDANCE  MATRIX 

**  A  Discordance  index  indicates  to  . 

TYP  TYP  TYP 

#DI 

what  extent  an  option  contains  a  bad 

TYP   -   16   3 

2 

element  that  siakes  it  un-satisfactorv 

TYP   11   -   8 

c 

**  The  index  varies  between  C  0  -  108  3 

TYP   11   18   - 

2 

the  lower  the  better  . 
6  indexes  are  <  =  55.  <# 
**  Column  #CI  indicates  the  #  of  indexes 
satisfying  Q  for  each  option 

OUTRANKING  MATRIX 

**  An  Outranking  relation  *  is  the 

TYP  TYP  TYP 

one  that  satisfies  both  concordance 

TYP   -   -   * 

and  discordance  requirements. 

TYP   *   -   * 

«  An  -  indicates  that  there  is 

TYP   -   -   - 

no  outranking  relations. 

HIT  ANY  KEY  TO  CONTINUE 

STEP  4  :  EVALUATION  OF  ALTERNATIVES 

Method  used  :  ELECTRE 

j 

1 

Figure  37.  User 


/  Concordance,  Discordance,  Outranking  Matrix 
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ALTERN. EVALUATION  :  WORKING  AREA 

TYP  TYP  TYP 

UER 

8.M  6.00  6.00 

ELE 

7.00  9.00  4.00 

EN6 

6.00  9.00  7.00 

PRIORITY  VECTOR 

TYPE  1 

0.27 

TYPE  2 

0.41 

TYPE  3 

0.32 

TYP  TYP  TYP 
0.27  0.41  0.32 


Do  you  want  to  nodify  the  weights  (Y/N)  ? 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Method  used  :  Direct  input 


Figure  38.  User  3 


/  Individual  Evaluation  of  Alternatives  Using 
Direct  Mode 


033 
■ t i 


FINflL  SOLUTION 


n 


u 


TYP    TYP    TYP 
0.35  0.34  0.34 

HIT  ANY  KEY  TO  CONTINUE 


STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 
Final  Result 


Figure    39.     Solution    of    User    3     (    With    Direct    Mode    ) 
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ALTERN. EVALUATION  :  WORKING  AREA 

GRADING  SCALE 

WEA  ELE  EN6 

WEA  ELE  ENG 

TYP  31  26  15 

Weig. :  38  38  24 

TYP  28  28  23 

TYP  32  25  17 

Exce   38  38  24 
Good   29  29  18 
Aver   19  19  12 
Fair   18  10  6 
Weak  8  8  0 
P  =  55.80  %    Q  =  55.00  t 

MENU 

1.  CONCORDANCE  MATRIX 

2.  DISCORDANCE  MATRIX 

3.  OUTRANKING  MATRIX 

4.  MODIFY  THRESHOLDS 

5.  EXIT  ELECTRE 

SELECTION  (1-5)  ? 

STEP  4  :  EVALUATION  OF  ALTERNATIVES 

Method  Used  :  ELECTRE 

Figure  40.  User 


/  Evaluation  of  Alternatives  Using  Elect re 
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CONCORDANCE  MATRIX 

** 

A  Concordance  index  indicates  to 

TYP  TYP  TYP 

ICI 

what  extent  an  option  is  better  than 

TYP   -   38   38 

0 

another  in  tens  of  criteria  weights 

TYP   62   -   62 

2 

** 

The  index  varies  between  [  9  -  100  ] 

TYP   62   38   - 

1 

the  higher  the  better  . 
3  indexes  are  >  =  55 

** 

Column  #CI  indicates  the  #  of  indexes 
satisfying  P  for  each  option 

DISCORDANCE  MATRIX 

♦* 

A  Discordance  index  indicates  to 

TYP  TYP  TYP 

SDI 

what  extent  an  option  contains  a  bad 

TYP       21   5 

2 

element  that  makes  it  un-satisfactorv  i 

TYP   3   -   11 

2 

** 

The  index  varies  between  [  3  -  120  ] 

TYP   3   16   - 

2 

the  lower  the  better  . 
6  indexes  are  <  =  55.30 

** 

Column  #CI  indicates  the  #  of  indexes 
satisfying  Q  for  each  option 

0UTRANKIN6  MATRIX 

ft* 

An  Outranking  relation  *  is  the 

TYP  TYP  TYP 

one  that  satisfies  both  concordance 

TYP   -   -   - 

and  discordance  requirements. 

TYP   *   -   * 

♦♦ 

An  -  indicates  that  there  is 

TYP   * 

no  outranking  relations. 

HIT  ANY  KEY  TO  CONTINUE 

STEP  4  :  INDIVIDUAL  EVALUATION  OF  ALTERNATIVES 

Method  used  :  ELECTRE 

Figure  41.  User  3  /  Concordance,  Discordance,  Outranking  Matrix 
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ALT.  CflRDINflL  RANKIN6S   ORDINAL  RANKING      6R0UP  RESULTS 

USER1  USER2  USER3     USER1  USER2  USER3         Rl  R2   R3   R4 
Weig.  :3.88  3.00  4.86 

TYP   1.91  1.01  1.35     2    2    2      TYP   6  1.13  1.12  3 
TYP   1.06  1.06  1.41      111      TYP   3  1.17  1.16  6 
TYP   1.01  1.01  1.34     3    3    3      TYP   9  1.12  1.11  0 

Rl  :  SUM  OF  RANKS               R3  :  MULTIPLICATIVE  RANKING 

R2  :  ADDITIVE  RANKIN6            R4  :  SUM  OF  0UTRANKIN6  RELATIONS 

HIT  ANY  KEY  TO  CONTINUE 

STEP  5  :  COMPUTATION  OF  GROUP  DECISION 
All  the  solutions  have  comouted  with  flHP 

1 

Fig  Lire  4£ .  Gro a p  So  1  a t  i  on  of  the  Pro b  1  em 
(Solved  with  Direct  Mode) 
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ALT.   INDIVIDUAL  ROWINGS    ORDINAL    RANKING              GROUP  RESULTS 

USERi  USER2  USER3              USE      USE      USE                       R4        Ri 

TYP      0         8         8                  333              TYP       0         9 
TYP      2         2         2                  111               TYP       6         3 
TYP      111                 222              TYP       3         6 

Rl  :  SUN  OF  RANKS                                     R3  :  MULTIPLICATIVE  RANKING 

R2  :  ADDITIVE  RANKING                              R4  :  SUM  OF  OUTRANKING  RELATIONS 

HIT  ANY  KEY  TO  CONTINUE 

STEP  5  :  COMPUTATION  OF  GROUP  DECISION 

All  the  solutions  have  coaputed  with  ELECTRE 

Figure  43.  Group  Solution  of  the  Problem 
(Solved  with  Elect re  Mode) 
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